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EDITORIAL 


SOMMAIRE 


Près de mille réponses au sondage du numéro 
12 ! Les premiers traitements statistiques four¬ 
nissent des résultats intéressants mais dont cer¬ 
tains inclinent à la réflexion. 

Par exemple savez-vous que le lectorat de sexe 
féminin culmine à 1,4 % ; certes, c'est un phéno¬ 
mène assez connu que les jeunes filles sont 
moins attirées que les jeunes gens par l'informa¬ 
tique individuelle, mais dans cette proportion ! Il 
y a de quoi étonner : pourvu que l’informatique 
de loisir n’aille pas rejoindre la pèche et le sport 
télévisé dans la catégorie des détentes exclusi¬ 
vement masculines ; elle mérite beaucoup 
mieux. Les scientifiques disent que l'informati¬ 
que est une technique d’avenir et les poètes que 
« la femme est l'avenir de l’homme » : il est donc 
urgent qu’à l’avenir les femmes s’intéressent da¬ 
vantage à l’informatique. C.Q.F.D. 

Autre chiffre, autre interrogation : les lecteurs se 
répartissent massivement en deux classes d’age 
dominantes, 15 et 35 ans. Voici l’interprétation 
la plus plausible : on s’intéresse à l'informatique 
individuelle à l’adolescence, puis lorsqu’on est 
jeune père pour s'amuser avec ses enfants. Mais 
alors, les étudiants, les professionnels, depuis 
une dizaine d’années que l’informatique grand 
public existe ont remisé leur système au pla¬ 
card ? Il y a pourtant tellement de possibilités en 
termes d’applications pratiques (graphiques, 
gestion, etc.)...à méditer. 

Voyons midi à notre porte : combien d’entre 
vous qui possèdent un Sinclair, envisagent-ils de 
passer à un Sinclair plus gros (ZX81-Spectrum, 
Spectrum-QL ou ZX81-QL? Un sur trois (en 
gros) ; c’est tout ? Déjà blasé ? Dommage. 

Fort heureusement, l’impression générale qui se 
dégage du sondage est elle, nettement positive : 
pour la plupart d’entre vous, l’informatique est le 
premier des loisirs et ORDI-5 plait bien plus qu'il 
ne déplait ; ça, c'est un bon résultat, mais nous 
n’y sommes pas pour l’essentiel : ORDI-5 n’est-il 
pas fait par ses lecteurs, c’est même la qua¬ 
trième qualité citée après l’existence d'une re¬ 
vue Sinclair, le nombre de programmes valables 
et le caractère varié des sujets. 
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' ooooooooooo 

ODDÜDOCDOOO 

OOOODOOODOO, 

1 nononnnonon 



Démocra tisation.. 


Un Spectrum 48K (PAL) pour moins de 1000 F ! 
Nous n’en avons pas cru nos yeux et pourtant 
les faits sont là : telle grande chaine de commer¬ 
cialisation Hl Fl VIDEO parisienne distribue bien 


la version ancien clavier à ce prix ; ça 
commence à valoir le coup d’en acheter plu¬ 
sieurs par famille pour développer des logiciels 
de communication. 


Le QL est désormais proposé, comme ses petits 
frères SINCLAIR par une grande maison de 
vente par correspondance installée dans le Nord 
(avec ça, si vous ne devinez pas I). C'est peut- 
être le signe de la démocratisation tant attendue 
pour ce produit. 


et anoblissement. 


Le logiciel d’accompagement du CL, composé 
de quatre instruments intégrés (ABACUS, AR¬ 
CHIVE, EASEL et OUILL) a été adapté par 
PSION pour l'IBM PC, une preuve de plus, s'il en 
était besoin de la qualité de ce package, qui 
donnera des leçons de simplicité aux utilisateurs 
du PC. Ainsi modifié (capacités notemment), ce 
package s'appelle X-CHANGE. 




En vente en librairie, en boutique informatique 
et auprès de P.S.l. Diffusion 


La liste des instructions et 
des commandes, les mnémoniques, les astuces. 

Clefs pour le ZX 81 - 95,00 FF 
Clefs pour le ZX Spectrum - 95,00 FF 

par Jean-François Séhan 


Basic approfondi, initiation au langage machine 

La pratique du ZX 81 - tome 1 - 85,00 FF 
La pratique du ZX Spectrum - tome I - 95,00 FF 

par Xavier Linant de Bel lefonds 


Programmation en langage machine 

La pratique du ZX 81 - tome 2 - 95,00 FF 
La pratique du ZX Spectrum - tome 2 - 95,00 FF 

par Marcel Henrot 
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Toujours plus gros tel est mon 
device. 



OPUS commercialise un lecteur de disquette 
pour le Spectrum au prix de 200 livres l’unité 
(330 livres les deux unités), le DISCOVERY 1 ; ce 
lecteur fonctionne avec des disquettes 3,5 pou¬ 
ces et comprend de multiples connecteurs qui le 
rendent transparent, c’est à dire qu’il ne gène 
pas les autres extensions du système. 

Il est parfaitement possible de transformer son 
QL en ordinateur professionnel en y mettant le 
prix : Quest International Computers annonce la 
création d'un système complet avec console, 
double disquette et logiciels professionnels fai¬ 
sant un large usage des fenêtres graphiques. 

Le « YSMegaBasic » une version délirante 
(22k !) du Basic pour le Spectrum qui comprend 
trois polices de caractères, trois tailles de carac¬ 
tères, 64 colonnes, l’organisation de fenêtres, 
etc. est due à un programmeur anglais Mike 
Leaman, et ne coûte qu’une dizaine de livres. 


Made in France 



AUTOPHIL est un logiciel tout nouveau pour ZX 
Spectrum commercialisé par RENECO : il per¬ 
met la programmation d'automatismes 
complexes à l'aide d’un langage de programma¬ 
tion simple, tandis que jusqu’à présent la plupart 
des entrées sorties impliquaient de l’utilisateur 
une programmation soignée, de préférence en 
langage-machine pour être efficaces. 

Un moniteur vidéo pour micro-ordinateurs bien 
de chez nous, enfin, avec haute résolution et 
donc bien adapté au QL : c'est le MCI 4 EU¬ 
REKA sera bientôt diffusé sur le marché français 
aux environs de 2750 F. 


Bons points... 



En France, Sinclair est leader sur le marché des 
ordinateurs domestiques avec 32 % du parc ins¬ 
tallé. 

Direco International annonce la disponibilité de 
140 logiciels éducatifs « Sinclair à l'école » sur 
ZX 81, ZX Spectrum et Spectrum Plus, couvrant 
l'ensemble des classes de la maternalle à la ter¬ 
minale. Tous ces logiciels ont été développés 
avec le concours de professeurs de l'Education 
Nationale, avant le lancement du programme 
« Informatique pour tous ». Direco rappelle à ce 
sujet que 8000 ordinateurs Sinclair sont déjà uti¬ 
lisés dans les écoles françaises. 


et mauvaise passe. 



La firme Sinclair, sans doute victime de son suc¬ 
cès, a de grosses difficultés de trésorerie : elle a 
dû passer des accords avec un groupe de 
presse important pour se renflouer. Il n’est pas 
possible de dire à l'heure actuelle quelles chan¬ 
gements ceci va introduire dans la ligne de pro¬ 
duction de Sinclair Research. 

L’espace QL de l’avenue Hoche, belle vitrine du 
nouveau Sinclair, a été récemment fermé ; espé¬ 
rons que ceci ne soit pas de trop mauvais au¬ 
gure pour la cadence de commercialisation du 
QL en France. 

Les microcartouches ressemblent un peu aux 
produits des magasins d'état dans les pays de 
l'Est : quand on en trouvait, elles étaient à 80 F ; 
depuis qu’on n’en trouve plus du tout, on les a 
royalement baissées à 37 F... 


ADRESSES DES SOCIETES 
MENTIONNEES 


EUREKA Informatique, 39 rue Victor Massé, 
75009 PARIS. Opus Supplies Ltd, 55 Ofmside 
Way, Holmethorpe Industrial Estate, Redhill, 
Surrey, GB. 

Quest International Computers, School Lane, 
Chandlers Ford, Hants, S05 3YY, GB 
RENECO, 37 Brd Biron, 93400 SAINT OUEN 
YSMegaBasic, Offer, Sportscene Specialist 
Press, 14 Rathbone Place, London, WIP IDE 



6 — ORDi-5 n° 13 septembre 1985 














Deux livres lus pour vous 


Boîte à outils pour le navigateur 
de plaisance 


Lucien STREBLER 
MEGA-O Poche 


Gaston Ml CLOT : 
Micro-gestionnaire pour 
Sinclair Mega-O poche 


Nous avions déjà eu l’occasion de parler de 
Gaston MICLÔT dans cette rubrique lors de la 
sortie de son ouvrage « MICRO-COMPTA SUR 
SINCLAIR » : voici la suite ! 

Moins de programmes (14), mais plus longs car 
prenant en charge le « traitement de l’informa¬ 
tion », vocation première de l'informatique. 
Construction de graphes en tous genres, mani¬ 
pulation de tableaux, traitement de textes sim¬ 
plifié et fichiers sont autant d'outils directement 
empruntés aux professionnels. 

Seulement, l’auteur pousse ici le bouchon un 
peu loin ! Si nous avions beaucoup apprécié, 
dans son précédent petit livre, le choix consis¬ 
tant à n'utiliser l'ordinateur qu'entre une saisie 
au clavier de données et une impression sur pa¬ 
pier des résultats, en revanche nous ne pouvons 
pas croire sérieusement qu'une entreprise fera 
imprimer sa correspondance commerciale par 
une ALPHACOM ou une GP 50 ! 

Personne n'acceptera non plus de passer six 
fois plus de temps qu’à la main pour mettre à 
jour un fichier ou seulement le consulter... De 
toute façon, la fiabilité de l’enregistrement sur 
cassette n’est pas suffisante pour un usage pro¬ 
fessionnel sur des informations importantes. 

Par contre, les différentes représentations gra¬ 
phiques proposées peuvent rendre des services 
lorsqu’une vue d’ensemble rapide de l'évolution 
d'une situation est recherchée. 

En fait, bien que les programmes de l’ouvrage 
aient exclusivement été écrits sur ZX 81 (pas un 
seul listing pour SPECTRUM), nous considérons 
plutôt ce livre comme un recueil de fort bonnes 
idées, mais que l'on ne pourra appliquer décem¬ 
ment que sur un système plus performant 
(SPECTRUM et MICRODRIVE par exemple). 

-P.G. 



Parmi les activités de loisir justiciables d’une in¬ 
formatisation, la navigation maritime est un do¬ 
maine rêvé pour le programmeur que les PAC- 
MAN et les astéroïdes n’amusent plus. 

Il faut avoir navigué pour prendre vraiment 
conscience de l’importance que revêtent les cal¬ 
culs numériques et géométriques lors du dérou¬ 
lement d'un voyage, qu’il soit long ou court. 
L’auteur de ce petit livre semble précisément 
appartenir à la famille des « vieux loups de mer » 
et sait visiblement de quoi il parle : le mal de 
mer, il connaît ! 

Lucien Strebler a développé une quinzaine de 
programmes couvrant l’essentiel des problèmes 
se posant au plaisancier sur trois machines dis¬ 
tinctes : une simple calculatrice programmable 
Tl 59 (Texas Instruments), un petit Casio 
FX 702 P, et notre vieil ami le SPECTRUM. 

A vrai dire, et sans que cela ne retire quoi que ce 
soit à la qualité des programmes destinés au 
SINCLAIR, nous imaginons mieux les deux pre¬ 
mières machines « sur le terrain » : récepteur TV 
et magnétophone ne font pas partie de l’arme¬ 
ment de première nécessité d’une petite unité ! 
Par contre, le SPECTRUM se prête fort bien à la 
préparation à terre d’un projet de voyage, une 
machine plus « légère » pouvant prendre le relais 
à la mer (les formules utilisées sont les mêmes). 
Deux logiciels seulement sont fournis pour le 
SPECTRUM : navigation côtière et navigation 
hauturière : ils rassemblent à eux seuls tous les 
petits programmes destinées aux machines « de 
poche ». On ne dispose pas pour rien de 16 ou 
48 K de mémoire vive, que diable ! 

Ce livre nous semble un « must » pour tout navi¬ 
gateur équipé de moyens informatiques, mais il 
peut éventuellement intéresser, à titre de curio¬ 
sité, les amoureux de la géométrie désireux de 
rêver, au coin du feu, à l’appel du grand large... 

-P.G. 
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Coté court 


Le petit problème sur le jeu de dés (n°11 ) où il fallait simuler le jet d’un dé 
avec ocurrence aléatoire des six faces a bien challengé les lecteurs 
d’ORDI-5 : des solutions très élégantes frisant le quart de kilo octet 
arrivent encore. Plusieurs d’entre elles descendent bien en-dessous des 
225 octets de la solutions proposée au numéro 12, mais ne se conforment 
pas tout à fait au « cahier des charges » c’est-à-dire qu’elles dessinent un 
cadre plus petit, ou des points-pixels au lieu de points-pavés. Nous ne 
résistons pas cependant au plaisir de vous soumettre trois d’entre elles, 
parce qu’elles représentent un effort d’analyse remarquable qui est de la 
très bonne programmation. 


Dé de 7 à 5 


La première est due à Eric CHEVALIER, que 
nous laissons exposer sa réalisation : 



1 LET U=SGN PI 
S LET D-U+U 
3 l_ET P*-"l ■” 

4PRIKT " « • T , ,Rt, ,R*, ,R$, , 

^"PTeT P * «"4.066236 " 

O LET fi-IHT (RND*INT PX*D)+U 
T LET N-m-INT tft/lit 

s ra« r«o ru r 

9 LET C* INT (URL P*<N+I)/INT 

PI) 

10 PRINT RT C+U,URL P*(N+I)+U- 
'.*XHT PI; " ■“ 

11 NEXT I 


Votre programme de lancement d’un dé peut- 
être, me semble-t-il, réduit à 198 octets. 

Le premier gain porte sur le dessin du dé. On 
utilise non plus un carré de 7 sur 7, mais un carré 
de 5 sur 5. Quelques « astuces » de dessin per¬ 
mettent d’obtenir un dé plus petit mais tout à fait 
lisible. 

Le gain le plus important consiste dans la réduc¬ 
tion de la chaine de caractères représentant les 
diverses positions des points. J'utilise comme 
vous la division entière et le reste d'une division, 
mais par « 3 ». 

Sept octets suffisent à représenteras différentes 
positions des points. En effet ilf aut partir du 
principe que l’on peut obtenir une valeur du dé 
par l'addition de deux ou plusieurs valeurs, ou 
bien qu’il y a dans une valeur des éléments 
d’une valeur inférieure. Par exemple « 3 » s'ob¬ 
tient par l’addition des dessins de « 1 » et de 
« 2 ». 

Soit A la valeur aléatoire obtenue à la ligne 6 du 
programme : la ligne 7 teste la parité de cette 
valeur. Si A est impair N = 0, si A est pair 
N = 1.- si N = 0 la section de chaine utilisée 
commencera au début de la chaîne et le point 
central sera dessiné (A impair) 


- sinon la section de chaîne commencera au 
deuxième caractère de la chaîne (A pair) 

Les valeurs contenues dans la chaîne corres¬ 
pondent à la représentation du dé par le tableau 
suivant : 


0 1 2 
3 4 5 
6 7 8 



Valeurs utilisées dans la chaîne 
4 

0 8 

4 0 8 

0 8 6 2 

4 0 8 6 2 

0 8 6 2 3 5 

-V- 


1 LET U = SGN PI 

2 LET D = U + U 

3 LET A$ = « i ■ i l i ■ » 

4 PRINT USB»,, A$„ A$„ A$„ 



Valeur de A 
1 
2 

3 

4 

5 

6 




5 LET P$ = « 4086235 » 

6 LET A = INT (RND * INT PI * D) + U 

7 LET N = (A = INT (A/D) * D) 

8 FOR I = U TO A 

9 LET C = INT (VAL P$ (N + l)/INT PI) 

10 PRINT ATC + U, VAL P$(N + I) + U-C 

* INT PI ; « □ » 

11 NEXTI 


1 — Dessin du cadre 

Ligne 3 : 2 caractères graphiques (touche 8) et 
3 espaces 

Ligne 4 : 1 - 5 caractères graphiques (tou¬ 

ches 3, 6, 6, 6, 6) 

2 - 5 caractères graphiques (tou¬ 

ches 8, 6, 6, 6, Q) 

2 - Points 

Ligne 10 1 caractère graphique (touche 3) 
_ Eric CHEVALIER 
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Pourquoi pas un dé noir à 
points blancs ? 



La solution de Didier GRAND descend à 185 oc¬ 
tets en utilisant un décodage plus simple de la 
chaine-guide : la vidéo inverse est très jolie, 
mais, petit malin, supprime les difficultés inhé¬ 
rentes au dessin du cadre ; très fort quand 
même : 



1 LET U »SGN PI 
S LET P-U+ U 
3 LET R*-"|ViMMM" 

4. LET B *-"3311585 X1S3136" 

11 FOR I-U TO CODE "P" 

18 PRINT R* 

13 NCXT Z 

SI LET N-INT CRNDeCODE 1 V > +U 

31 FOR I « INT IN/-D) «D*D+D TO D + 
O * t N /D - INT (Nz'D) ) BTEP -D 

32 PRINT RT ORL B*<I-U),ORL B* 

< I) ; " " 

33 NEXT I 


Clin d’oeil vers l’assembleur 


Bien sûr, nous n’avions pas exclu explicitement 
le langage machine et des petits futés en ont 
profité pour trouer le plancher des 100 octets, 
c'est le cas notamment de J.-M. CORBISIER qui 
nous propose deux versions dont une spéciale¬ 
ment économique en 73 octets ! 



1 REM <99 oc t ct £) 

10 RRND USR VRL '16514' 

16514:253,126,52,1,6,57,145 
16521:48,253,33,174,64,229,133 
16528:111,78,225,126,35,254,126 
16535:32,5,203,57,56,1,175 
16542:197,229,205,8,8,225,193 
16549:16,236,201,8,65,73,99 
16556:107,119,7,3,3,3,3 
16563:3,132,118,5,126,0,0 
16570:0,128,133,118,5,0,0 
16577:0,0,0,133,118,5,126 
16584:0,128,0,128,133,118,5 
16591:0,0,0,0,0,133,118 
16598:5,128,0,0,0,128,133 
1 6605: 1 18,130,131,131, 1 31 , 1 31, 1 31 
16612:129 


16514 

FD 

7E 

34 

LD 

R,<IY+34 ) 

16517 

01 

06 

38 

LD 

BC,3806 

16520 

91 



SUB 

C 

16521 

30 

FD 


JR 

NC,4088 

16523 

21 

RE 

40 

LD 

HL.40RE 

16526 

E5 



PUSH 

HL 

16527 

85 



RDD 

*,L 

16528 

6F 



LD 

L, R 

16529 

4E 



LD 

C , < HL > 

16530 

El 



POP 

HL 

16531 

7E 



LD 

R,r HL > 

16532 

23 



INC 

HL 

16533 

FE 

80 


CP 

80 

16535 

20 

05 


JR 

NZ,40R3 

16537 

CB 

39 


SRL 

C 

16539 

38 

01 


JR 

C,40R3 

16541 

RF 



XOR 

R 

16542 

C5 



PUSH 

BC 

16543 

ES 



PUSH 

HL 

16544 

CD 

08 

08 

CfiLL 

0808 

16547 

El 



POP 

HL 

16548 

Cl 



POP 

BC 

16549 

10 

EC 


DJN2 

4093 

16551 

C9 



RET 


1 1 

REM 


<73 

octets) 


16514:253,126,52,1,6,30,145 
16528: 111,78,225, 126,35,254,_1 


16549:16,236,201,136,193,201.227 

16556:235,247,7,3,3,3,5 

16563:118,5,1,0,1,5.118 

16570:5,i,1,1,5,118,5 

16577:1,0,1,5,118,3.3 

16584:3,3,1 


16517 01 06 _1_E LD BC, 2106 


16533 FE 01 CP 1 
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INITIATION 



Le concours du plus beau 
carrelage 



A vos ZX 81 ! Spectrum et autres QL s’abstenir : 
N. BAILLY nous a fait parvenir ce carrelage so¬ 
bre et régulier que l’on obtient en quelques ins¬ 
tructions. A vous de jouer, cette fois-ci sans limi¬ 
tation de mémoire, pour composer un carrelage 
de cathédrale ou de palais oriental avec le jeu de 
caractères graphiques du ZX 81 noirs ou gris. 
Nous attendons des splendeurs... 


1<? FOR I=@ TO 703 

20 LET X = I - INT (I/64-) *64. 

30 LET V = I-XNT (I/4.4.I *.4-4. 

4-0 IF I — INT ( 1x128) *12S> =64. TH 
EN LET X =63 -X 

50 IF I-INT (1/63)f8S>a44 THEN 
LET Y =4.3 -Y 
60 PLOT X/Y 
70 NEXT I 


P.S. Bravo à Christian MUGNERET. 

Pour son optimisation à 216 octets du pro¬ 
gramme n° 12. 



X.L.B. 


La chance et l'informatique 


Depuis toujours, joueurs et parieurs ont tenté de « forcer la chance » par 
des moyens mathématiques souvent basés sur des calculs de 
probabilités. 

Le développement de l’informatique individuelle met à la disposition du 
joueur une puissance de calcul considérable, pour essayer de gagner 
plus souvent à des jeux aussi variés que le tiercé, le loto, la roulette, ou 
les concours publicitaires. 

L’ordinateur n’est toutefois pas un devin, et il importe de rester conscient 
de ce qu’il peut ou ne peut pas faire dans de tels domaines ! 


La leçon des boules 


Plaçons dans une boîte une boule blanche et 
une boule noire, agitons le tout, et tirons une 
boule les yeux fermés : sauf truquage grossier, il 
est parfaitement clair que la boule noire a une 
chance sur deux de sortir. 

Admettons que la blanche sorte. Au coup sui¬ 
vant, quelle est la probabilité de sortie de la 
boule noire ? 

Il est tentant de songer à une probabilité meil- 
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leure qu'une chance sur deux , notamment si 
plusieurs coups antérieurs ont fait sortir la boule 
blanche... ERREUR ! 

Le déroulement des coups précédents, quel 
qu’il soit, ne change rien à la réalité des faits : il y 
a dans la boîte une boule blanche et une boule 
noire, et donc une probabilité de 50 % de sortie 
pour chaque boule. 

Des joueurs de roulette se sont ainsi ruinés en 
admettant l'existence de probabilités différentes 
pour certaines cases. La réussite d’une telle 
« martingale » supposerait une défectuosité mé¬ 
canique (usure localisée) ou une irrégularité du 
jeu. Des contrôles très stricts réduisent pratique¬ 
ment à néant de telles possibilités. 

Le raisonnement est sensiblement le même en 
ce qui concerne le loto, la loterie nationale, et 
autres arlequins. 

Une analyse sur ordinateur des numéros sortis 
sur une longue période serait mathématique¬ 
ment vouée à l’échec. Nous verrons cependant 
que l’on peut songer à autre chose... 

En ce qui concerne les paris (tiercé et autres 
courses), le problème est tout différent : les di¬ 
vers concurrents n’ont nullement des probabili¬ 
tés identiques de gagner. 

Le pronostiqueur habile pèse soigneusement le 
plus grand nombre possible de entières pour 
chaque partant, ce qui lui permet de recomman¬ 
der ceux qui lui paraissent les plus favorisés. 

Pour établir des pronostics valables, il faut bien 
sûr disposer de beaucoup d’informations, et les 
traiter selon une procédure performante. 

Cela, un ordinateur peut s’en charger, et beau¬ 
coup plus vite qu'un être humain ! 

Des parieurs, ont depuis longemps mis ce filon 
en exploitation : on trouve - quand on a de la 
chance ! - des cassettes destinées à la plupart 
des ordinateurs personnels connus, et permet¬ 
tent d'établir des pronostics assez sûrs en ma¬ 
tière de courses et de rencontres de football. 

Ces logiciels comportent deux volets : 

- une volumineuse base de données regroupant 
le plus d'informations possibles sur les concur¬ 
rents les plus populaires, et sur les résultats des 
compétitions des dernières années. 

- un programme permettant d'une part la mise 
à jour permanente de cette masse d’informa¬ 
tions au moyen des résultats des compétitions 
au fur et à mesure qu’elles ont lieu et d’autre 
part L’EXPLOITATION de ces données selon les 
caractéristiques de la rencontre sur laquelle on 
désire établir un pronostic. 

Des résultats plus qu’encourageants auraient 
été obtenus par des utilisateurs adroits de ces 
logiciels, qui se vendent d’ailleurs assez cher. 
(ORDI-5 ne les vend pas). 


Les pouvoirs 
surnaturels 


On croit ou on n’y croit pas, les PARAPSYCHO¬ 
LOGUES font couler beaucoup d’encre et de sa¬ 
live ! Si certaines personnes voient en rêve un 
accident qui arrive le lendemain à un de leurs 
proches, si d’autres arrivent à faire tourner les 
tables, pourquoi diable ne pourraient-elles pas 
deviner la prochaine combinaison du loto! 


En ce qui nous concerne, nous croyons ce que 
nous voyons ! Nous avons donc écrit un petit 
programme destiné à tester les talents de toute 
personne soupçonnée de posséder des facultés 
extra-sensorielles. 


10 CLS : PRINT " Pressez d 
es touches" 

20 PR INT "uu.t-3.iTt. de fois- Tue n 
©cessaire." PRINT ■ PRINT 
30 LET -3=0 = LET b=0 = LET t=0 
40 IF INK£Y$<>"" THEN LET a=a 
+1; LET t-t+1 

50 IF t>—100 THEN GO Tü 10© 

60 IF INKEY$<>"" THEN LET b=b 
+1^ LET t-t+1 

70 IF t>=100 THEN GO TQ 100 
30 GO T0 40 

100 CLS BEER 1.- 30 PR INT T RB 
8 . 1 - 3 ..;" et " ;b; " PR INT 
110 IF -3=50 OR 9=49 OR .3=51 THE 
N PR INT "Vous ïi’etes Probable me 
•r.t Pas" 


115 

LET b$= 

' ' V o u s e t e s P e u t 

--être 

120 

IF a>51 

RND a<55 THEN 

PR IN 

bS 

1 3© 

IF b>51 

RND b< 55 THEN 

PR IN 

b$ 

14© 

IF a>54 

OR b>54 THEN 

PR INT 

"Vou. 

s et-es • 

■.•r-a i se pi b 1 ab 1 er-ie 

■nt" 

150 

FRI NT « 

PRINT " U N 

ri 

D I 

U N .. 

il 

M 



160 PR INT •• PR INT "ruais essayez 
encore !" 

170 PR INT PR INT RT 13,2.; "Près 

sez donc ENTER" 

ISO INPUT a* RIJN 


Le logiciel de la figure 1 a été écrit sur un SPEC- 
TRUM, mais il pourrait facilement être adapté 
pour fonctionner sur d’autres machines. 
L’important est de bien en respecter le principe, 
qui consiste à faire exécuter à l'ordinateur une 
boucle de programme comportant deux instruc¬ 
tions parfaitement symétriques dont i'une incré¬ 
ments une variable A et l’autre une variable B 
sur simple pression d’une touche quelconque du 
clavier. Moyennant un nombre suffisent d’essais 
(mettons 100), il est statistiquement quasiment 
certain que A et B se partageront à égalité le 
total obtenu. 

Pour s'en convaincre, il suffit d’appuyer de fa¬ 
çon continue sur une touche du clavier, jusqu'à 
qu'un top sonore indique la fin du test, et l’édi¬ 
tion des résultats. 

Il est maintenant possible d’appuyer sur le cla¬ 
vier par pressions courtes mais VOLONTAIRES, 
et si l’on s'en sent capable, sous l’empire d’une 
INTENSE CONCENTRATION PSYCHIQUE. 

On peut même, puisque toutes les touches du 
clavier jouent ici le même rôle, aller jusqu’à frap¬ 
per des mots revêtant une signification « ri¬ 
tuelle » pour le sujet (au point où nous en som¬ 
mes, n’est-ce pas...) 

Les choses deviennent intéressantes si des ré¬ 
sultats différant notablement de la proportion 
normale 50/50 peuvent être régulièrement obte¬ 
nus : le sujet pourra alors être qualifié de « mé¬ 
dium », car il se sera montré capable : 
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- soit d'agir mentalement sur le fonctionnement 
de l'ordinateur. 

- soit de « lire dans les pensées » de la machine, 
et d’agir sur le clavier « au bon moment ». 

Un tel « médium » pourra alors tenter de se met¬ 
tre « en relation » avec la machine tirant le loto, 
ou avec une table de roulette ! 

Ceux de nos lecteurs qui commenceraient à se 
poser des questions sur l’état de santé de l’au¬ 
teur de ces lignes doivent savoir que des scienti¬ 
fiques tout-à-fait sérieux utilisent en laboratoire 
des procédés à peu près identiques pour tenter 
de fixer la limite existant nécessairement entre la 
réalité et la fiction dans ces domaines encore 
bien obscurs. 


Des outils pour médiums dur 
Spectrum 



5 

REM RNRGRRMHE 



10 

PRINT "mot ?" 



20 

INRIJT m$ 



38 

L.ET 1=LEN m$ 



40 

DIM 1> 



59 

DIM n< 1 > 



■SQ 

FOR f~l TO 1 



70 

L.ET n< f >= I NT 


:HD:t: 1 >+1 

80 

IF f=l THEN 

cc 

J TO 120 

90 

F OR 9=1 T0 f — 

i 


1 80 

IF n< 9 f > 

THEN GO T0 

118 

NE.'-:T 9 



120 

NEXT f 



130 

FOR f=l TO I 



140 

LL T f t=m$< 


f > > 

130 

NEXT f 



160 

PR. I NT 3$ 



170 

G0 TO 60 



180 

REM copyright 


1984 


Le programme de la figure 2 permet à un SPEC¬ 
TRUM de générer des nombres entiers compris 
entre 1 et un maximum donné. Une intervention 
manuelle de l’opérateur stoppe la machine dans 
son exploration continuelle du générateur de 
nombres aléatoires de sa ROM. 

Si vous n’êtes pas médium, le procédé présente 
l’avantage de permettre un meilleur « brassage » 
que la lecture directe de la liste pré¬ 
programmée. 


. , . » , 1 / / 

J Al &H(rH£ fW LoTO . ■ . 

-T J (AOKO-S "Tc>V5 LES LO&ic'tEL^ 

i 






Si par contre les tests précédents ont donné des 
résultats positifs, pourquoi donc ne pourriez- 
vous pas faire « avouer » à la machine quels se¬ 
ront les prochains nombres qui sortiront au 
loto ? On n’est pas médium pour rien, que dia¬ 
ble ! 

Le petit logiciel de la figure 3 est capable, à par¬ 
tir d'un mot quelconque entré au clavier, d’en 
établir toute une série d’ANAGRAMMES (mots 
utilisant les mêmes lettres dans un ordre diffé¬ 
rent). 

La recherche s'opère de façon aléatoire, car une 
exploration systématique deviendrait vite impra¬ 
ticable sur des mots de longueur moyenne. 
Rappelons en effet que pour N lettres, le nombre 
d'anagrammes distincts est N ! (factorielle N) 
soit 1x2x3 X...x N. 


"Ma x i iïi u rri 
ri» : CLS : 
"Pre s s ez 
PR INT 



Avec seulement six lettres, on arrive à 720 pos¬ 
sibilités, avec sept à 5040, avec huit à 40320, 
etc ! 


• E LO 
touche 


( R N D * rn .1 +i 
THE N GO 
10.; I. 

THEN GO 


Ü T O E 0 


T O 30 


1984 


Bien des concours publicitaires sont basés sur la 
recherche d'une anagramme de la marque du 
produit. Si vous n’êtes pas médium, ce pro¬ 
gramme pourra vous aider à balayer un certain 
nombre de possibilités. Si par contre vous jouis¬ 
sez de facultés supra-normales, vous ne man¬ 
querez certes pas de trouver très vite une excel¬ 
lente solution, n’est-ce pas ? 


:• Patrick GUEULLE 
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Ah ! les belles courbes 

L’informatique individuelle se prête à merveille à la construction rapide et 
précise de toutes sortes de graphiques, de l’histogramme au 
« camembert » en passant par le classique graphe cartésien. 

Un ordinateur possédant la haute résolution, éventuellement complété 
par une imprimante graphique, peut faire gagner énormément de temps à 
tout utilisateur de tels diagrammes « x-y ». 

Des logiciels plus ou moins sophistiqués peuvent être utilisés à cet effet : 
nous vous en proposons ici un fort simple mais assez souple d’emploi, 
destiné à « tourner » sur un SPECTRUM éventuellement muni d’une 
imprimante. 


Il n’y a plus qu’à tirer l’échelle ! 



L’instruction PLOT du SPECTRUM suffirait pres¬ 
que, à elle seule, pour tracer des courbes point 
par point. Elle « noircit » en effet n'importe quel 
point de l’écran (pixel) dont on spécifie les coor¬ 
données rectangulaires : PLOT X,Y. 

X peut varier de 0 à 255, et Y de 0 à 175. 
Cependant, pour être exploitable, une courbe 
doit être étalonnée : à la main, on utilise du pa¬ 
pier quadrillé sur lequel on fait figurer les échel¬ 
les et les unités retenues. L’ordinateur, dessina¬ 
teur infatigable, peut exécuter un quadrillage en 
un tournemain, plus ou moins serré selon les va¬ 
leurs imposées aux boucles FOR-NEXT 
commandant le traçage opéré par les instruc¬ 
tions DRAW. 


L'indication des échelles adoptées est simple à 
porter sur le diagramme, puisque le SPECTRUM 
permet le mélange direct de textes et de gra¬ 
phismes sur un même écran. Avec d’autres ma¬ 
chines la chose serait possible, mais beaucoup 
plus délicate. 


1 P: g r-1 GRAPHIQUE 

£ p! £. M * * î*r X * *‘ V.' -i: iir £ ■* -Jr 4 if- •£• if- 

3 REM pour GP 1O0 j Kempiton 
S COPV REM 1 

e COPV REM = * 

"7 COPY REM tO 

3 REM *#*#***#*•*•**#**#***•**•* 
io CL5 PR INT "P i.e i n >1 s Che i. le 
X : input PX 

as cl s rrint "unit* x T".- ira 

PUT' R * 


20 CL5 PR INT "Racine icheUe 
Y ?”: INPUT p y 

er t-’ t ■=: r-.i-.-r, |-T- .•* -r . . 



-• 5 

CLS 

PRINT "unité Y 7 " IN 

put i.-.i a 



~7 

30 

CLS 

FOR 

fs0 TO 170 STEP 1 

f 

40 

PLOT 

0 .. f r 

DRAW SS© ,0 : MEyT 


3 0 

roR r 

=•0 TO 5TCP 3-5 

f 

60 

PLOT 

f . 0 

DRAU 0,170 : N EXT 


65 

RR INT 

RT 

21,5 ; "X ru a x = " , p x 

* 

,, ,, 

•4 * 



70 

RP INT 

RT 

0,0;"Y" 


75 

PAINT 

RT 

0.5;"Y max » ".py; 


" ; w 

■t 



60 

RR INT 

RT 

21,31."X" 


90 

PR INT 

RT 

21,0. " 0 1 ' 


100 

P R I NT 

RT 

21,31,"?": INPUT x 


105 

IF x a 

e " •' 

THEN PP INT AT £1,3 

1 

,■ "y 

COPV 

GO TO 100 


ioe. 

LET X 

«URL 



1 10 

PR INT 

RT 

2 1 , 1 . " X " 


120 

PR K JT 

PT 

0 .'é input y 


125 

PR INT 

HT 

0,0;"Y" 


130 

LET X 

= X # ie 

50/px . LET y *y*170 


p y 

14.0 PLOT OUER 1 . x .y 

130 GO TO 100 

160 PEM Copyright 19B4. 


Les lignes 10 à 25 du programme de la figure 1 
servent donc à l'acquisition par l'ordinateur du 
détail des unités et des échelles à utiliser. Les 
lignes 65 et 75 assurent l’impression de ces don¬ 
nées essentielles en bordure de quadrillage. 
Celui-ci possède dix divisions sur chaque axe, 
ce qui permet une lecture facile quelle que soit la 
pleine échelle choisie. Un X est placé en bout 
d’axe des abscisses, un Y en haut de celui des 
ordonnées, et une procédure fort simple trans¬ 
forme ce X ou ce Y en point d'interrogation lors¬ 
que la machine attend une valeur : l’opérateur 
ne risque pas, de cette façon, de perdre le fil de 
son travail de saisie, alors qu’aucune place ne se 
trouve gaspillée sur l’écran pour l’impression de 
messages « de service ». 

Chaque point spécifié par ses coordonnées X 
et Y est inscrit sur le graphe, en noir sur blanc 
sur noir s'il vient à tomber sur une ligne du qua¬ 
drillage : c’est l’attribut OVER 1 de la ligne 140 
qui permet cette distinctiion automatique, qui 
fait si cruellement défaut à d'autres machines. 


Les points portés sur le graphique ne sont pas 
réunis entre eux par la machine : l’instruction 
DRAW, facile à ajouter d’ailleurs, ne pourrait en 

effet accomplir qu'une « interpolation linéaire » 
entre deux points, ce qui ne correspond pas for¬ 
cément aux besoins de l’utilisateur : on obtient 
une bien plus belle courbe en réunissant les 
points « à la main », ce qui est d'ailleurs un plai¬ 
sir après que la machine se soit chargée du tra¬ 
vail si fastidieux de placement des points ! 

La figure 2 fournit un exemple de graphiques 
établi par le SPECTRUM, tandis que la figure 3 
montre le travail restant à exécuter manuelle¬ 
ment. 

on trouve dans les bonnes papeteries des règles 
souples, armées de plomb, qui peuvent être 
conformées à la disposition des points qui rem¬ 
placent avantageusement les anciens « pisto¬ 
lets » : il ne reste alors plus qu'à tracer ! 
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Copie « à la trace » 



L'écran TV ne peut généralement être considéré 
que comme un support intermédiaire pour les 
courbes tracées, qu’il faudra tôt ou tard transfé¬ 
rer sur papier. 

Les machines SINCLAIR (ZX 81 et SPECTRUM) 

possèdent une très commode instruction COPY 
déclenchant la recopie exacte du contenu de 
l'écran sur l’imprimante SINCLAIR ou ALPHA- 
COM. Dans notre programme, le simple fait de 
presser la touche ENTER seule lorsque la ma¬ 
chine attend une valeur X appelle la ligne 105 
qui contient un COPY. C’est pour cela que X est 
entré sous forme de chaîne alors que Y rentre 
plus simplement sous forme numérique. 

Pour des applications « sérieuses », on éprou¬ 
vera cependant sans doute le besoin d'une co¬ 
pie de qualité sur papier ordinaire. Aussi ce pro¬ 
gramme est-il adoptable à une interface 
imprimante : ici l’interface KEMPSTON. 

La commutation de l'interface pour telle ou telle 
imprimante se fait au moyen de commandes 
frappées au clavier, ou même de lignes de pro¬ 
gramme (lignes 5 à 7 de notre logiciel). 

Pour les utilisateurs qui trouveraient insuffisant le 



format des copies d’écran obtenues, il suffit de 
remplacer le zéro terminant la ligne 7 par un 1 
pour obtenir pratiquement le plein format A4 
(21 x 29,7): figure 4. 

Bien entendu, ces lignes « spécifiques KEMPS¬ 
TON » seront supprimées par nos lecteurs utili¬ 
sant une autre interface. 


Ce logiciel est suffisamment court pour pouvoir 
être saisi au clavier en peu de minutes, mais il 
peut faire gagner un temps considérable à tout 
utilisateur régulier de graphiques X-Y ou T-Y 
possédant une imprimante réellement capable 
de reproduire des écrans haute résolution de 
SPECTRUM. 


Patrick GUEULLE 
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11 PREMIERS 


::::::::: 


NUMEROS 


mmm mmm 

mmm mmm 

mmm MS 

MB SBB 




DE 


::: 

::: 


::::::::: 

■ •■■■••■IM ■*•■••••• IMNIMMM 


» ** %!*««** 


ffiotWO® 



BON DE COMMANDE 

(à retourner à LIST - Service Numéros - 

5, place du Colonel-Fabien - 75491 Paris Cedex 10). 

Nom_Prénom_ 

Adresse___ 


Code Postal I _ I _ I _ I _ l_l Ville_ 

Je désire recevoir la collection complète des 11 premiers 
numéros de LIST au prix de 109 F. Je joins mon règlement indis¬ 
pensable à l'ordre de LIST. 

(Offre valable pour la France métropolitaine). 



ENFIN POUR VOTRE 

«/ 

OFFREZ LUI UNE DISQUETTE 


INTERFACE ZX FLOP 
FLOPPY 5 1/4 ” S F 
FLOPPY 3 1/2 ” S F 
FLOPPY 3'i” DF 
FLOPPY 3” 

COFFRET A UNI 
POUR FLOPPY 


850,00 

2200,00 


OPTION 


QU. 


PRIX 


24 00,00 

2600,00 - 

1800,00 _ 

3 80,00 

REGLEMENT 


JOINT 


Port 


+ 35,00 


CREE 

138 Avenue THIERS 
69006 LYON 


Chèque □ 
C.C.P. □ 
Mandat □ 


T.T.C. 
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CAHIER QL 


r 


Trois jeux QL 


Q. Briques 


Q. Briques est une version du jeu 
Casse Briques pour le QL. Il s’agit 
de détruire un mur à l’aide d’une 
balle. Utilisez les touches du 
curseur pour bouger la raquette. Ce 
programme pourrait être 
considérablement optimisé, mais il 
recourt à des procédures simples à 
des fins pédagogiques. 


Il utilise cinq variables : x : ordonnée de la balle, 
y : abcisse de la balle, py : abcisse de la ra¬ 
quette, a et b : mouvements de la balle. Au dé¬ 
but du jeu a = b = 1 : donc x = x+1ety = y 
+ 1 ; si la balle touche le mur ou une brique 
a = - a ou b = - b, les valeurs de a et b peuvent 
donc être - 1 ou 1 ? Mais il y a un « hic » avec ce 
système : la balle détruira sur le mur une brique 
sur deux. 

Comment savoir si la balle touche une brique ou 
non ? Eh bien chaque brique est codée : br (li¬ 
gne, colonne), cette variable prend la valeur 0 si 
il y a une brique ou 1 s’il n'y en a pas. 


Il arrive (rarement) que la balle « tourne en 
rond » c’est-à-dire qu'elle ne marque pas de 
points : le jeu devient donc monotone et il est 
impossible de gagner. Pour remédier à ce pro¬ 
blème il suffit de presser la touche < ESC > qui 
fait automatiquement changer la balle, mais utili¬ 
sez cette touche que lorsque c’est nécessaire, 
en effet elle fait perdre cinq points à chaque 
pression. 

Il y a plusieurs niveaux de difficulté, pour gagner 
il faut atteindre le niveau 7. Chaque fois que 
vous montez d’un niveau la raquette en fait de 
même, il faut donc être de plus en plus rapide. 

- Procédure écran : affiche le mur 

- Procédure jeu : boucle principale 

- Procédure mov : bouge la raquette 

- Procédure balle : vérifie si la balle touche une 
brique 

- Procédure nouveau : indique le niveau de jeu 

- Procédure var : définition des variables 

- Procédure check : vérifie si la balle est passée 
à côté de la raquette 

- Procédure hors : fait avancer la balle et vérifie 
sa position 

- Procédure nbal : change la balle 

- Procédure bravo : fin de la partie 

- Procédure fin : annonce la défaite 

- Procédure présentation : présentation 

- Procédure encore : demande si le joueur veut 
rejouer 

- Procédure gagne : fin du jeu 

- Procédure ord(a$) : affichage d'un message 
a$ 


10 REMark Q.BRIQUES v.1-3 

<c) Mars 1985 Frédéric Huynh 
100 présentation 
110 var 
120 écran 
140 nouveau 
150 écran 
160 jeu 
170 GO TO 120 
180 GO TO 100 

1000 DEFine PROCedure écran 
1010 PAPER 0 :CLS:CLS #0 

1020 PAPER 1 : PRINT ” „ 

1030 FOR i-1 TO 20-<niveau*1) : AT i,0:PRINT " ": AT 1.36:PRINT 
1040 FOR 1=2 TO 6 

1050 AT i-1,1 : PAPER 1 NT < RND< 2 TO 6>>:PRINT ” 

1060 END FOR i 
1070 DIM brr7,35) 

1080 x=7:y-2 

1090 py*15 .. _ 

1100 AT #0,1,0:PR 1 NT #0:"BaLLES : ";ba: AT #0,1.12 :PRINT #0; POINTS 
1 , 26 :PRINT #0;"SCORE : score 

1110 PAPER 0 
1120 RETurn 

1130 DEFine PROCedure jeu 
1140 aT x,y:PRINT " ”: hors 

1150 AT 20-ni veau , py-1 : PAPER 4:PRINT ’* PAPER O 

1160 AT X,y;PRINT "O" 

1170 IF X'6 THEN balle 
; 1180 IF KEYROW(1> < •O THEN mov 
: 1190 IF x=<19-niveau) then check 
; 1200 GO TO 1140 
: 1210 DEFine PROCedure mov 


:sc: AT #0, 
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passage 


'ENTER";: FLASH 0:PRINT" pour comm 


ÿ 1220 AT 20-niveau,py-1:PRINT " 

:• 1230 IF KEYROW< 1 ) = 2 AND py > 1 THEN py=pv-2 
•: 1240 IF KEYROW < 1 > = 8 THEN SC=SC-5:AT X , y : PR I NT ” ":nbal 
:■ 1250 IF KEYROW( 11 = 16 AND py 34 THEN py=py*2 
j: 1260 RETurn 

1270 DEFlne PROCedure balle 
;j; 1280 IF br<x,y)=l THEN 
1290 RETurn 
•: 1300 ELSE 
;j; 1310 BEEP 500.x 
•: 1320 AT X. y: PRI NT " " 

1330 br<x,y)*i 
•: 1340 sc-sc + i 
•: 1350 IF X- >1 THEN a = -a 

1360 AT #0.1,21: PR INT #0 ; sc ; " " 

•: 1370 END IF 

: 1380 IF (SC MOD 20)-0 THEN nbal 
: 1390 IF sc=req THEN bravo:GO TO 170 
• 1400 END DEFlne 
; 1410 DEFlne PROCedure nouveau 
: 1420 INK 5 

; 1430 niveau*niveau»1 :sc=0 
: 1440 CSIZE 3.1 

; 1450 AT 5,9: PR I NT "NIVEAU : "-.niveau 
; 1460 PAUSE 100 
1470 CSIZE 2,0 
1480 req= 120-ml veau» 10 > 

1490 AI 13,4:INK 3:PRINT "Nombre de points requis pour ":AT 14,7‘PRINT 
en niveau : ";niveau»1 : AT 15,17:FLASH 1:INK 4:PRINT req: FLASH'0 
1500 INK 6 

1510 AT 19,3:PRINT "Pressez FLASH 1:PRINT 

encer” 

1520 IF KEYROW!1) >1 THEN GO TO 1520 

1530 INK 7 

1540 RETurn 

1550 END DEFlne 

1560 DEFlne PROCedure var 

1570 sc = 0 : score«0:a=1 :b=1 :ba = 9: change=0 :niveau = 0 
1580 RETurn 

1590 DEFlne PROCedure check 

1600 IF y>py-l OR y < py-1 THEN GO TO 1620 

1610 a = - a :BEEP 100.0:RETurn 

1620 ba = ba -1 : AT x.y:PRINT " ”: FOR i-O TO 30 :BEEP 5000,i:BEEP 5000, i * 2 :BEEP 5000, 
i/2iN EXT i 

1630 AT 0.0:CSIZE 3.1 : AT 5.7:PRINT "BALLE PERDUE !!":CSIZE 2.0:FOR 1=0 TO 300 : NE 

1640 IF ba=0 THEN fin: encore : GO TO 180 

1650 AT 0.0:nbal 

1660 AT #0.1,9:PRINT #0;ba:" ” 

1670 END DEFlne 

1680 DEFlne PROCedure hors 

1690 x=x»a:y=y+b 

1700 IF XI THEN a=l:BEEP 100,0 

1710 IF y' = 1 THEN y=1 :b--b:BEEP 100,0 

1720 IF y > =35 THEN y=35 :b=-b :BEEP 100,0 

1730 RETurn 

1740 END DEFlne 

1750 DEFine PROCedure nbal 

1760 IF changeai THEN 

1770 change=0:y=3 

1780 ELSE 

1790 change*l:y=2 

1800 END IF 

1810 IF RND .7 THEN y=RND(4 TO 7) 

1820 CSIZE 3.1 
1830 INK 5 

1840 AT 5.5:PRINT "CHANGEMENT DE BALLE" 

1850 CSIZE 2,0 
1860 FOR i=0 TO 100:NEXT i 
1870 AT 20-niveau.0:INK 6 
1880 PRINT ” Pressez FLASH 1:PRINT 

r INK 6 

1890 IF KEYROW<1)< 1 THEN GO TO 1890 

1900 x = 7:a=1 :b=1 
1910 AT 20-niveau,3:PRINT " 

1920 AT 10,6:PRINT " 

1930 py=15 
1940 INK 7 
1950 RETurn 

1960 DEFlne PROCedure bravo 
1970 CLS #0 


'ENTER";:FLASH O:PRINT 


: AT 11.5 : PR I NT 


pour continue 
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: ; : : :£:£x 2070 

AT 2 . 3 :PRINT 

"POINTS : 

SC 


; xÿ.v:|x 2080 

AT 3 , 3 :PR INT 

"BALLES : 

ba ; " x 10” 

i‘x\-x|i*i:i 

$:*x : : : : : : 2090 

AT 4 . 3 :PRINT 

"score : ": 

score 


3 ::X:Xx: 2100 

AT 5 , 3 :PRINT 

"NIVEAU : 

niveau ;” x 


2110 

AT 7 . 3 :PR INT 

•• - 


*vXvX*x 

•:$:*: : : : x : : 2120 

score=sc-iba* 

I0>*<niveau» 10 > 

*score 

X*X*XvX 

: :’#x : : : : : 2130 

AT 8.3 : PR I NT 

"TOTAL : "; 

score 


"en niveau “;niveau*l 


: FLASH 1 : PR I NT "ENTER”FLASH O : PR I 


1980 AT 0.0 

1990 CSIZE 3.1:FOR i-0 TO 60 : AT 4.11:INK i:PRINT "BRAVO !:NEXT i:CSIZE 2,0 
2000 AT 10,3:INK 6:PRINT "Vous avez atteint les ”;req;" points":AT 11,5:PRINT "n 
ecessaires pour le passage ”: AT 12,13:PRINT 
2010 AT 20-niveau,3:INK 4:PRINT "Pressez <" 

2010 AT 20 -niveau,3:INK 4.PRINT "Pressez <"; 

NT "» pour continuer" 

2020 IF KEYROW< 1 »' >1 THEN GO TO 2020 
2030 CLS 
2040 CSIZE 3,1 
2050 AT 0.5:INK 4:PRINT 
2060 I NK 5 


10 ' 


'TOTAL DES POINTS" 


: FLASH l:PRINT "ENTER";:FLASH 0:PR INT 


PO 


";score:AT 13,12:PRINT "en niveau 


: FLASH O:PR INT 


; n 


po 


2140 CSIZE 2,0 

2150 INK 2 : AT 19.3:PRINT "Pressez c 1 
ur continuer." 

2160 iF KEYROW <1> < 1 THEN GO TO 2160 

2170 CLS 
2180 ba=ba+l 

2190 IF ni veau*1 = 7 THEN gagne 
2200 RETurn 

2210 DEFine PROCedure fin 
2220 écran 
2230 CSIZE 3,1 

2240 INK 2:AT 5.7 : PR I NT "VOUS AVEZ PERDU 
2250 INK 4:CSIZE 2.0 
2260 score=score*sc 

2270 AT 12.7:PRINT "Votre score est de : 
i veau 

2280 FOR t=0 TO 500 :NEXT i 

2290 AT 19,3:INK 7:PRINT "Pressez <";:FLASH 1:PRINT "ENTER" 
ur continuer " 

2300 TF KEYROW<1)- 1 THEN GO TO 2300 

2310 AT 19.0:PRI NT " 

2320 FOR i=0 TO 300:NEXT i : PAUSE 5 : PAUSE 5 
2330 RETurn 

2340 DEFI ne PROCedure présentation 
2350 MODE 8:PAPER 0 :CLS:CLS #0 
2360 OPEN #4.SCr_442x200a38xl6 
2370 BORDER #4,3,6 

2380 INK #4,2:AT #4,1.11 : PRiNT #4;"FREDERIC HUYNH" 

2390 INK #4.1:AT #4.4,14 : PRI NT #4 ;"PRESENTE" 

2400 CSIZE #4,3.1 

2410 FOR i“0 TO 100: INK #4 , i : AT #4,4.9:PRINT #4 ; "Q. BRI QUES" : NF.XT i : AT #4.4.9 : I NK 
#4.3:PRINT #4 ;"Q.BRIQUES" 

2420 CSIZE #4.2,0:INK #4.5 

2430 AT #4.11.6:PRI NT #4 ;"<C) 1985 HUYNH SOFTWARE”: I NK #4.100 
2440 AT #4.18.3 : PR I NT #4;”Pressez •: ENTER > pour commencer" 

2450 IF KEYROW!1)' >1 THEN GO TO 2450 
2460 FOR 11 TO 60 

2470 BORDER #4.i.i:BEEP 500.60-i 

2480 NEXT i 

2490 BORDER #4.65,1 

2500 FOR i=0 TO 500 :NEXT i 

2510 CLOSE #4 

2520 CLS 

2530 PAUSE 300 

2540 RETurn 

2550 END DEFine 

2560 DEFI ne PROCedure encore 

2570 CLS #0 

2580 AT #0.3.0 

2590 INPUT #0;"Desirez vous rejouer ? > ”;a$ 

2600 IF a$="" THEN GO TO 2590 

2b1O 1F a$=”oui" OR a$="o" THEN RETurn 

2620 CLS 

2630 CLS #0 

2640 PRINT #0;"<c> Frédéric Huynh" 

2650 STOP 

2660 END DEFine 

2670 DEFine PROCedure gagne 

2680 CLS:CLS #0 

2690 ord ”Bravo , vous avez atteint le niveau 7 : toutes mes félicitations si v 
ous n'avez pas triche !" 

2700 PR1 NT\\ 

2710 ord "Merci d'avoir joue avec moi ." 
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2720 encore:GO TO 180 

2730 END DEFine 

2740 DEFI ne PROCedure ord<a$) 

2750 FOR 1=1 TO LEN(a$> 

2760 PRINT a$<i ) ; :BEEP 100.0:PAUSE 5 
2770 END FOR i 

2780 PRINJ. 

2790 RETurn 
2800 END DEFI ne 

10600 REMark ***************************************«***,*****«***********„*„*,. 
10610 DELETE mdvl_Q_Br1ques 
10620 SAVE mdvl_Q_Briques 
10630 DIR mdvl_ 

10640 STOP 
10650 PAUSE 10000 
10660 BAUD 1200 
10670 OPEN #4,série 
10680 LIST #4 
10690 CLOSE #4 
10700 STOP 

10710 REMark **********e****«*********** a **************************************** 


F. HUYNH 


Pendu 



Le principe du programme PENDU 
est simple : trouver un mot choisi 
par l’ordinateur en faisant au plus 
dix fautes. Il faut pour cela entrer 
une par une des lettres, si elles sont 
dans la composition du mot, elles 
viendront s’afficher à un endroit 
précis. Si elles sont fausses une 
potence se construira peu à peu. 
Voici une brève descriptions du 
programme : 


Lignes 100 à 240 : boucle principale 

- Procédure mot : choix d’un mot au hasard 

- Procédure présentation : règle du jeu 

- Procédure caractère : affichage de la potence 

- Procédure pendu (x) : construction du corps 

- Procédure affehage : affichage du mot caché 

- Procédure entrée : entrée des lettres 

- Procédure var : mise en place des variables 

- Procédure check : vérifie la lettre ou le mot 

- Procédure potence : affichage du corps 

- Procédure efface : prépare l'écran 

- Procédure gagne : annonce la victoire 

- Procédure mort : annonce la défaite 

- Procédure encore : demande si le joueur veut 
rejouer 

- Procédure prénom : demande le nom du 
joueur 

Il est évidemment possible de changer les mots 
tirés en modifiant les DAT A 1070-1120. 


10 REMark Pendu v.û-l 



100 var 

110 PAPER #1.0:PAPER #2.0 

120 MODE 8 

130 présentation 

140 CLS:PAUSE 100 

150 prénom 

160 PAPER O:CLS 

170 caractère 

180 mot 

190 affichage 

200 REPeat jeu 

210 entree 

220 check 

230 END REPeat jeu 
240 STOP 

1000 DEFI ne PROCedure mot 
1010 RANDOMISE 
1020 RESTORE 

1030 FOR 1=1 TO RND( l TO 100) 

1040 READ m$ 

1050 END FOR 1 
1060 RETurn 

1070 DATA "INUTILE"."DORMIR"."LONGTEMPS","COMMUNICATION"."IMPORTANCE"."APPELLATI 
ON”."VAPEUR"."SEMAINE"."MALVEILLANCE"."SEL"."BIEN"."MAL”."SUCRE”."POIVRE"."POULE 
T"."DINDON","EXPLICATION","ANNEXE"."EFFORT" 

1080 DATA "JOURNAL","CHLOROFORME"."GRENOUILLE”,"CHLORE”."ACIDE”,"EPICEA","LUMIER 
E","ESPACE","PRATIQUE","SIEGE","RADIO","BALLADEUR”."WALKMAN” 

1090 DATA "PHAGOCYTOSE","DIAPEDESE”."HEMATIE"."VIRUS"."LANGAGE"."EUPHEMISME"."PA 
RTIMON IE","ANAPHORE","PROSOPOPEE"."CHIASME"."ANTONOMASE"."METONYMIE" 

1100 DATA "EPARGNE","COMPREHENSION"."AUDITION”."PHOTOGRAPHIE"."MAGNETOSCOPE"."VI 
N"."PI N”."REIN","OEUVRE"."TELEPHONE"."COAGULATION","TRANSL ATION"."EQUATION" 
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1110"DATA •'LITOTE","HORLOGE","MICROPROCESSEUR","LAVAGE","PARAPLUIE”,"CHIEN","CHA 
T" ."ANTECEDENT","EXODE","URBANISME"."OMNIVORE"."CLASSEUR"."ECOLOGIE"."INFLATION" 
,"DEVALUATION","CONJONCTURE","ACTUEL"."ESPION","UNION"."REPUBLIQUE” 

1120 DATA "EPILOSCOPE”,"DIAPOSITIVE","ECHEANCE","HEBDOMADAIRE”,"OPPRESSION”,"BAN 
DITISME"."AFFECTATION"."LIMOGER"."LICENCIER","EPILOGUE"."ORDINATEUR","GENI AL","I 
NTERFACE”."JOYSTICK"."MANETTE","EXPANSION","DEMOGRAPHIE","PSYCOLOGIE","INTELLECT 
UEL"."LAMENTABLE"."PRECISION","FIN" 

1130 END DEFine mot 

1140 DEFI ne PROCedure présentation 

1150 OPEN #4.SCr_442x200a38Xl6 

1160 BORDER #4.2.1.3 

1170 CLS #4 

1180 INK #4.2 : AT #4.0,11 :PRINT #4;"FREDER1C HUYNH” 

1190 INK #4.1:AT #4.3.14 :PRINT #4 ;"PRESENTE" 

1200 INK #4.3:CSIZE #4.3,1:AT #4.3.11 :PRINT #4 :"PENDU":CSIZE #4.2.0:INK #4.4 
1210 AT #4.10.0 : PR I NT #4;" Tout le monde connaît bien evldem ment la réglé de c 
e jeu . Découvrez le mot cache en entrant une par une des lettres , si elles son 
t bonnes .elles viendront s'afficher a l'ecranmais attention si elles sont fauss 
esLa mort vous guette ." 

1220 INK #4,6 : FLASH #4.1 : AT #4.18.11 : PRI NT #4;"PRESSEZ •ENTER'": FLASH #4,0 

1230 IF KEYROW< 1 > = 1 THEN RETuril 

1240 GO TO 1230 

1250 END DEFine présentation 

1260 DEFine PROCedure caractère 

1270 CLS 

1280 C$=CHR$<231) 

1290 INK 4 : PAPER 4 : AT 19,20:PRINT FILL$<C$,10> 

1300 FOR 1=1 TO 18:AT 1.25:PRINT c$ 

1310 AT 1,25 : PRINT FILL$(C$,10> 

1320 AT 18.22: PRINT FILL$(C$,6) 

1330 AT 1.3:PAPER 1:PRINT " ": AT 3,3:PRINT " ": AT 2.3:PRINT " 

": I NK 3 : PAPER 0 : AT 2,4:PRINT "PENDU" 

1340 AT 6.1:PRINT "Mot a rechercher :”: AT 11.1:PRINT "Lettres utilisées :” 

1350 END DEFine caractère 

1360 FOR 1=0 TO 300 

1370 DEFine PROCedure pendu <x> 

1380 INK X:PAPER X 
1390 SELeCt ON X 

1400 =1 : AT 2.30 :PRINT c$:AT 3,30:PR1NT c$:message$=”Voie i déjà la corde 

1410 ~2 :AT 4,29 : PR 1 NT c$&cS&c$:AT 5,29:PRINT c$&c$&c$:AT 6.29:PRINT c$&c$&c$:mes 

sage$="J’ai l’impression que vous avez une drôle de tete ...” 

1420 =3 : AT 7.30:PRINT c$:message$="Corde»cou=aie aie aie 11!" 

1430 =4:FOR i=8 TO 11 : AT i,29 : PR I NT c$&c$&c$:NEXT i:message$="Un corps ca pese 1 
ourd I !“ 

1440 =5 : AT 8,28 : PR1 NT c$:F0R i=8 TO 11 : AT i,27:PRINT c$:NEXT i:message$="Vous en 
etes déjà au bras ..." 

1450 =6:AT 8.32:PRINT c$: FOR i=8 TO 11 : AT i.33:PR INT c$:NEXT i: message**"Desirez 
vous vous confesser ? " 

1460 =7:FOR i=12 TO 15:AT i.29:PRINT c$:NEXT i: message*-"Ca vous fait une belle 
Jambe !" 

1470 -8:AT 16.28:PR1NT c$Sc$: message!-"Vous avez déjà un pied dans la tombe ...” 
1480 =9:FOR i=12 TO 15:AT i.31:PRINT c$:NEXT i:message$="Une derniere vonlontee 
?" 

1490 = 10: AT 16,31: PR I NT c$&c$ : messageî-- "Bi envenue en enfer II!” 

1500 END SELect 

1510 PAPER 0:INK 6 

1520 END DEFine pendu 

1530 DEFine PROCedure affichage 

1540 AT 8,1 : INK 7 

1550 FOR i=l TO LEN <m$) 

1560 PRINT "_•'; 

1570 END FOR i 
1580 INK 4 

1590 END DEFine affichage 
1600 DEFine PROCedure entree 
1610 INK 5 

1620 1F PEEK <163976>=0 THEN POKE 163976.255 
1630 AT 15,1:1NPUT "Votre lettre > ";1$ 

1640 IF 1$="” THEN GO TO 1630 
1650 1$=1$<1> 

1660 IF CODE <1$)< 65 OR CODE <l$)>90 THEN GO TO 1630 
1670 efface 
1680 prop=prop=l 

1690 d$< prop) = 1$: FOR 1 = 1 TO prop-l:IF l$=d$<i> THEN er=l:EXIT i 
1700 NEXT i 

1710 IF er=1 THEN er = 0:prop=prop-l: GO TO 1630 
1720 END DEFine entree 
1730 DEFine PROCedure var 

1740 prop=0:DlM bon<201:b=0:x=0:lettre=0:DlM d$(27>:er=0 

1750 END DEFine var 

1760 DEFine PROCedure checK 

1770 FOR i=l TO LEN <m$) 
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1780 IF l$=m$( 1 ) THEN b= 1 : bon< i ) * i : 1 ettre* 1 ettre♦ 1 
1790 END FOR i 

1800 IF b=0 THEN potence :RETurn 
1810 INK 6 

1820 FOR i*l TO LEN < m* > 

1830 IF bonii> = i THEN AT 8.i:PRINT m$<i) 

1840 END FOR i 
1850 efface 

1860 IF lettre=LEN <m$> THEN gagne 
1870 INK 2 

1880 AT 15,1:1 NPIJT "Avez vous trouve " ; z$ 

1890 IF z$<>"0" AND z$<>"OUI” THEN b=0: efface :RETurn 
1900 efface 
1910 INK 1 

1920 AT 15.1:PRI NT "Votre sol ution”: INPU'f " "; sol ution*: AT 16,0:PR1NT FILL$< 


: AT 16.1:PRINT "mort 


l:PR INT "a trouver le mot 


1930 IF solution*^m$ THEN gagne 
1940 AT 15,1:PR INT "c'est faux,vous etes 
Bienvenu en enfer !” 

1950 mort 

I960 END DEFine check 
1970 DEFine PROCedure potence 
1980 X-X-l:AT 13 .x:PR1 NT 1$ 

1990 pendu x 

2000 AT #0,1,0:PR I NT #0;FILL$<” ".70) 

2010 AT #0.1.O:PRINT #0;message* 

2020 1F X*10 THEN mort 
2030 END DEFine 
2040 DEFine PROCedure efface 
2050 AT 15.O:PRINT ” 

2060 END DEFine efface 
2070 DEFine PROCedure gagne 
2080 INK 6 

2090 FOR 1-6 TO 16:AT i .0 : PR I NT FILL*<" ".21) 

2100 AT #0,1,0:PRINT #0;FILL$<" ".70) 

2110 AT 6,1:PR INT "BRAVO vous avez réussi":AT 
2120 INK 5:AT 8.1:PRINT m$ 

2130 INK 6 : AT 9,1 : PR 1 NT "en ";prop:" essais." 

2140 encore 
2150 END DEFine gagne 
2160 DEFine PROCedure mort 
2170 FOR 1*0 TO 1500 : NF.XT i 

6 TO 18:AT i,0 : PR 1 NT F1LL*<" ",21> 

1 : FOR i=5 TO 17 : AT i.5:PRINT F1LL$<" ".7) 

2200 PAPER 2:FOR i-6 TO 13:AT i.8 : PR I NT " " 

2210 AT 8.6:PR INT " 

2220 PAPER 1 : INK 3 

2230 AT 17,8-<LEN(nom$>/2): PR I NT nom*: AT 15.7 : PR I NT ' 

K 6 : PAPER 0 

2240 FOR 1=0 TO 1000:NEXT i 

2250 AT #0.1.0:PRINT #0;FILL*<" ”.70) 

2260 FOR i=5 TO 18:AT i ,0 : PR 1 NT FILL*<” ”.21) 

2270 AT 6.1:PRINT "Vous n'avez pas réussi":PRINT " a trouver le mot 
2280 INK 5:PRINT ” ”;m*: I NK 6 

2290 PRINT ” Vous etes mort apres :":PRINT " ",prop." essais." 

2300 encore 

2310 END DEFine mort 

DEFine PROCedure encore 
AT 18.1:PRINI "Desirez vous rejouer ?" 


: AT 1 7.1 : PR I NT 


2180 FOR i 
2190 PAPER 


ICI":AT 16.7:PR I NT "GIT": IN 


2320 

2330 

2340 

2350 


INPUT " ":a$ 

IF a$="O” OR a*= 

2360 CLS:CLOSE #4 
2370 CLS #0 

2380 PRINT "La prochaine 
russe.pour changer M’ 


OUI" THEN RIJN 


fols <si vous etes enco re vivant) essayez la roulette 


2400 STOP 

2410 END DEFine encore 
2420 DEFine PROCedure prénom 

2430 AT #0,1.0:1NPUT #0;"Quel est votre nom svp (max 7) ”; nom* 

2440 IF LEN< nom*) >7 THEN GO TO 2430 
2450 AT #0,1,0:PRINT #0;FILL*(" ",70> 

2460 END DEFine prénom 

10000 REMark i****************************************************************** 

X X K X X X X 

10010 CLS :CLS #0 
10020 DELETE MDVl_Pendu 
10030 SAVE MDVl_Pendu 
10040 DIR mdvl_ 

10050 STOP 
10060 BAUD 1200 
10070 OPEN #5.série 
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10080 PAUSE 10000 
10090 LIST #5 
10100 CLOSE #5 
10110 STOP 
10120 REMark *»»*» 


IXXXXXXXXXXXXXXXX: 


iXXXXXXXXXXXXS 


F. KIM 


Simon 



Il s’agit de retrouver une suite de 
couleurs que l’ordinateur a 
préalablement affichée. 



10 REMark SIMON V.0-1 

(c) Mars 1985 Frédéric Huvnh . Paris . 

100 PAPER #1.0:PAPER #2.0:CLS #1:CLS #2:CLS #0 
110 var 

120 Initialisation 

130 page 

140 jeu 

150 fin 

160 CLS #0 

170 score*0 :comp-0 :er = 0 : DIM so<100):D!N h<100>:b=0:initialisation : GO TO 130 

1000 DEFine PROCedure initialisation 

1010 OPEN #4.scr_442x200a38xl6 

1020 BORDER #4,2.5 

1030 CLS #4 

1040 INK #4.2:AT #4.0.11 :PR1NT #4;"FREDERIC HUYNH" 

1050 INK #4.1:AT #4.3,14 :PR1NT #4 ;"PRESENTE” 

1060 INK #4,3 :CSIZE #4.3.1 : AT #4,3.11 : PR I NT #4 ;"SIMON":CSIZE #4,2.0:INK #4.4 
1070 AT #4.10.0:PR1NT #4;" SIMON est un jeu de mémoire . vousallez voir apparai 
tre a l'écran une suite de carres colores . A vous de les retrouver dans le bon 
ordre ." 


1080 PAUSE 50 

1090 INK #0.6.-message "Copyright 1985 HUYNH SOFTWARE . Pressez <ENTER> pour cont 
inuer. ":INK #0,7 

1100 IF KEYROW<1)< >1 THEN GO TO 1100 
1110 CLS 

1120 AT #0,1.0: 1NPUT #0;"Quel est votre nom ? <max 9) > ";nom$ 

1130 IF nom$="" OR LEN< nom$> >9 THEN GO TO 1120 

1140 INPUT#0; " Choisissez le niveau de dlff 

iculte del a 3 <1 étant le plus dur> i ";dif 

1150 IF dif'l OR dif >3 THEN GO TO 1140 

1160 INPUT #0;" Desirez vous avoir le son ? 


(Repondezpar o(ui) ou n(on) > > ”;z$ 

1170 IF Z$="out" OR Z$*"o" THEN b= 1 
1180 CLOSE #4 

1190 END DEFine initialisation 
1200 DEFine PROCedure var 

1210 best$="PERSONNE": mei1*0 : score*0 :comp = 0: DIM x<8):DIM h<100):DIM so(100):er*0 

: DIM sound<8>:b-0 

1220 RESTORE 1260 

1230 FOR i=1 TO 7 

1240 READ x<i),soundii ) 

1250 END FOR i 

1260 DATA 2,33.7.28.12,24.17,22.22.18.27.15.32.12 

1270 END DEFine var 

1280 DEFine PROCedure page 

1290 CLS:CLS #0 

1300 PAPER l:AT 0,12:PRI NT "xxx SIMON * « «" 

1310 FOR i* 1 TO 7 

1320 PAPER i 

1330 AT 2,X<i):PRINT " 

1340 AT 3 , X < i ) : PR I NT " 

1350 AT 4.X(1 ): PRI NT " 

1360 PAPER O: INK 7 : AT 3,X<i) + 1 : PRI NT i 
1370 END FOR i 
1380 PAPER 0 

1390 m$=mei1 : AT #0.0.1:PRINT #0;"MEILLEUR”: AT #0.1.2:PRI NT #0,"SCORE":AT #0,2.4- 
< LEN(m$ >/2):PRINT #0 ;m$ 

1400 INK #0.5 : AT #0.0.10 : PR INT #0 ;"MEILLEUR": AT #0.1,11 :PRINT #0 ;"JOUEUR": AT #0, 
2.14-< LEN < best$)/2):PRINT #0 ;bestS 

1410 INK #0.3 : AT #0,0.20 : PRI NT #0 ;"JOUEUR": AT #0,2,23- ( LEN<nom$)/2>: PRI NT #0 ; nom 


$ 

1420 S$=seore : I NK #0.4:AT #0 .0.30 : PRI NT #0; "SCORE": AT #0. 2, 32- < LEN (.s$) /2 >: PRI NT 
#0 ; s$ 

1430 INK #0,7 
1440 END DEFine page 
1450 DEFine PROCedure jeu 
1460 REPeat boucle 

1470 CSIZE 3,1:1 NK 5 : FLASH 1 : AT 6,8:PR1NT "REGARDEZ BIEN":CSIZE 2.0:FLASH 0 : I NK 
7 
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1480 PAUSE 100 

1490 CSIZE 3,1:AT 6,8:PRINT " ":CSIZE 2,0 

1500 comp-comp*1 

1510 h< COinp) ’RND <1 TO 7) 

1520 FOR 1>1 TO comp 
1530 écran h< l ) 

1540 END FOR 1 
1550 FOR i=l TO comp 

1560 AT 17.0:INPUT ("Quelle était la couleur du bloc no”8i&" ' ">•so<i) 

1570 AT 17,0:PRI NT " 

1580 IF SO< i)>7 OR so(i) 1 THEN GO TO 1560 
1590 écran soii ) 

1600 END FOR 1 

1610 CSIZE 3.1:INK 2:AT 6.8:PRINT "VOS SOLUT1ONS": CS1ZE 2.0: INK 7 

1620 PAUSE 50 

1630 FOR i=l TO Comp 

1640 écran sol I) 

1650 END FOR i 

1660 CSIZE 3,l:INK 6 : AT 6.6:PRINT "VOICI LES REPONSES":CSIZE 2.0:INK 7 

1670 PAUSE 50 

1680 FOR i=l TO comp 

1690 écran h<i) 

1700 IF so<ix h(i> THEN er*er*l 
1710 END FOR 1 

1720 IF er- >0 THEN EX1T boucle 
1730 score=score*comp 
1740 page:PAUSE 100 
1750 END REPeat boucle 
1760 page 

1770 mes$=" Vous avez perdu au bout de "&comp&" essais ; avec "Sers" erreurls) V 
otre score est de : "SscoreS" points. Pressez - ENTER> pour continuer” 

1780 message mes$ 

1790 END DEFI ne Jeu 

1800 DEFine PROCedure écran (ec) 

1810 PAPER ec : AT 8,x<ec V PRINT " " : AT 9.X(ec>:PRINT ” " : AT 10.x< ec > : PRI NT " 


1 : AT 10 , X< ec ) : PRI NT 


1820 IF b'O THEN PAUSE 5*dif :GO TO 1840 
1830 BEEP (5000*dif).soundlçc) 

1840 PAPER 0 : AT 8, X( ec > : PR I NT " ": AT 9.XIec':PRINT 

1850 END DEFine écran 

1860 DEFine PROCedure message <a$) 

1870 CSIZE #0,3.1 
1880 FOR i=1 TO LEN(a$) 

1890 AT #0.0,27 : PRINT #0;a$(i> 

1900 PAN #0;-16 

1910 IF KEYROW<1> — 1 THEN CSIZE #0.2.0:CLS #0 :RETurn 

1920 PAUSE 3 

1930 END FOR 1 

1940 GO TO 1880 

1950 END DEFine message 

1960 DEFine PROCedure fin 

1970 IF score>meiI THEN 

1980 message "Vous avez battu le record de "&meil«" points établi par "8best$&" 
félicitations ! Vous etes le nouveau détenteur du record . Pressez ENTER- pour 
continuer . " 

1990 mei1-score:best$=nom$ 

2000 ELSE message best$&" garde toujours son record de "&mei1&" points , a ce jo 
ur il reste imbattu . Pressez < ENTER ; pour continuer . 

2010 END IF 

2020 message "Desirez vous rejouer ? Pressez <ENTER' puis entrez votre réponse s 
vp. " 

2030 Al 18,0:1N PUT ">”;a$ 

2040 IF a$="" THEN GO TO 2030 

2050 IF a$-"oui" OR a$*"o" THEN RETurn 

2060 CLS #0:CLS #1 :CLS #2 

2070 PRINT #0;"<c> 1985 Frédéric Huynh" 

2080 STOP 

2090 END DEFine fin 

10000 REMark **«**************************j 
10010 DELETE mdvl_Simon 
10020 SAVE mdvl_Simon 
10030 DIR mdvl_ 

10040 STOP 
10050 PAUSE 10000 
10060 BAUD 1200 
10070 OPEN #5,série 
10080 LIST #5 
10090 CLOSE #5 
10100 STOP 

10110 REMark **«*»****«*»» 


r * * * » itntltxrxXKixxiitixixi 


CXXXXXXXXXXJ 


rxxxxxxxxxxi 


cxxaxxxxxxx-rxxxxxxxxxxxa 


Fr. HUYNH 
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BRICOLAGE 


16 K RAM dans le ZX81 

Pour les fanas du fer à déssouder (débutants s’abstenir) voici de quoi 
intégrer les 16 k RAM dans le boîtier du ZX-81 pour 400 à 600 F. 

Fini les extensions branlantes qui plantent le ZX, c’est bien plus 
esthétique, et en prime votre ZX gonflé ne consomme que 0,3 A. 

Le décodage est identique à l’extension 16K Sinclair, et si vous en 
branchez quand même une à votre ZX modifié, vous neutralisez la RAM 
interne (RAMOS = 1 ) donc pas de casse. 


Matériel 


Préparation des R.A.M. 


Deux RAM CMOS 8k x 8bits HITACHI 6264 P- 
15 un 74 LS 00. 


IVC 

ESI 

Al 

A9 

A8 

A7 

A6 

A4 

A2 

A0 

D0 

DI 

D5 

0V 


1 

-W- 

2 





6264 P 15 
























2fc 


26 


21 


+5V 



■A3 

Em 

’RAMCS 
• A10 

RÂMCS 

D4 

D3 
' D7 


D2 

D6 


(0E) 

(CE) 


Fig 1 Brochage RAM sur le ZX81 

(Pattes repliées encadrées) 


Sur chaque RAM 6264 relever les pattes n os 2, 
23 et 26. 

Placer les deux RAM l'une au dessus de l'autre 
et souder les pattes superposées (sauf les 
n 06 26, 23 et 2). 

Préparer le contact entre les deux pattes n° 2 et 
les deux pattes n° 23, en les laissant à l’horizon¬ 
tale. Ne pas relier les deux pattes n° 26 ensem¬ 
bles. 

pattes repliées 


n°23 l 

0 



fig 2 Préparation des RAMs 


Montage 


Préparation du circuit imprimé 
ZX81 



Enlever au fer à déssouder (manuel ou auto.) la 
RAM d'origine qui est composée soit d'un boî¬ 
tier 4118 ou de deux 2114. Procéder lentement 
et patiemment, sans forcer (normalement la 
RAM déssoudée doit encore fonctionner). 
Déboucher les 28 trous à l’emplacement mar¬ 
qué IC4, ainsi que les trous n° 9 (OV) et n° 18 
( + 5V) de IC4b. 


Monter l'ensemble des deux RAM surperposées 
sur le circuit imprimé et souder. Les pattes n° 2, 
23 et 26 repliées à l'horizontale ne sont bien sûr 
pas soudées au circuit imprimé ni en contact. 
Relier les deux pattes n° 2 ensemble puis à la 
cathode de la diode DI (Ail) qui est au-dessus 
du connecteur clavier. Relier de même les deux 
pattes n° 23 ensemble, puis à la cathode de la 
diode D3 (A12). 

Placer le 74LS00, pattes en l’air, au-dessus de 
l’emplacement de IC4b (à droite de IC4). (On 
peut le coller si on veut). Relier la patte n° 7 du 
74LS00 au trou n° 9 de IC4b (OV), relier la patte 
n° 14 du 74LS00 au trou n° 18 de IC4b (+5V), 
(attention le 74LS00 est vu de dessous ;). 
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Al 3 
A13 


lis 



connecteur claviej- 


3 74LSOO et connexions aux diodes 


Relier la cathode de D5 (Al3) à une porte du 
74LS00 (par exemple pattes n° 9 et 10 ensem¬ 
ble) puis à l'une des broches n° 26 (CE) de l’une 
des RAM. 

Relier la sortie de la porte du 74LS00 (broche 
n° 8 par exemple) à l’autre broche n° 26 de l’au¬ 
tre RAM. 


m HîHîH 08 

Vers le clavier 


C’est fini et ça marche... il n'y a plus qu’à déco¬ 
rer votre ZX81 d'une belle Inscription “16K". 


fift 4 Implantation du circuit 

imprimé 


F. BOSSERT 


micromanie 


SPECIALISTE NATIONAL DU DEPANNAGE PAR CORRESPONDANCE 

8, avenue des Thébaudières - 44800 ST HERBLAIN — Tél. : (40) 63 07 22 



C'EST LE TEMPS QU'IL NOUS FAUT POUR DEPANNER VOTRE MATERIEL 


SINCLAIR. — COMMODORE — ORIC — THOMSON — SEIK0SHA — AMSTRAD 
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LANGAGES 


Un Pascal pour QL : 

Pascal computer one 

Une implantation réussie de ce langage de haut niveau, exploitant au 
mieux les possibilités offertes par le QL. 

De nombreux langages de programmation sont disponibles sur le QL. 
Celui-ci est, en effet, une machine conçue pour programmer. Langage 
structure avec vitesse d’exécution élevée, récursivité et fonctions 
prédéfinies, le PASCAL s’impose comme un outil de développement. 
Sachant que le QL est doté d’un processeur 32 bits (68008 de 
MOTOROLA) et d’un système d’exploitation rapide pour les calculs 
scientifiques, on entrevoit aisément l’intérêt de l’utilisation d’un tel 
langage sur une machine de ce type. 


Le PASCAL COMPUTER ONE est vendu sous la 
forme d'une micro-cartouche accompagnée 
d'une notice claire et bien présentée, mais hélas 
dans la langue de nos voisins d'outre-Manche. 

La mise en œuvre de ce logiciel est remarquable 
par sa simplicité : 


La mise en œuvre de ce logiciel 
est remarquable par sa 
simplicité : 


en effet l'utilisateur est toujours guidé par des 
menus places dans des fenêtres adéquates. 

Le menu principal propose plusieurs choix : 
« EDIT » l’édition de texte, « COMPILE » la 
compilation, « RUN » l'exécution, « DIREC- 
TORY » la liste des segments, « DELETE » l'écra¬ 
sement d’un segment, « COPY » la copie, 
« FORMAT » le formatage d’une micro¬ 
cartouche, « MAKE JOB » la compilation en 
code machine, et « EXIT » le retour au basic. 
Après cette brève description, regardons en dé¬ 
tail les différentes commandes proposées : 


EDIT, un éditeur performant 



Le PASCAL est un langage très strict ; la moin¬ 
dre erreur de syntaxe oblige à répéter le proces¬ 
sus édition-compilation, en effet, cet éditeur ne 
permet de repérer les erreurs de syntaxe lors du 
retour chariot. Mais, comparable a un petit trai¬ 
tement de texte, il autorise le coupe-colle, main¬ 
tenant classique, ainsi que la recherche d’une 
chaîne de caractères. 

Le compilateur est conforme au standard I.S.O. 
à quatre exeptions près : 


- Les procédures et les fonctions ne peuvent 
être passées comme paramètres. 

- Les entrées-sorties ont été modifiées afin 
d’utiliser celles du QL de manière optimale. 

- On ne peut pas employer l’indice de boucle 
dans les procédures appelées (il faut une varia¬ 
ble intermédiaire). 

- Les GOTOs ne permettent pas de saut à l’ex¬ 
térieur des corps de procédures ou de fonctions. 
En revanche, les ajouts au standard permettent 
de tirer profit des possibilités graphiques et so¬ 
nores du QL : 

procédures: point grafill scale ellipse... 

procédures : beep et bell 

L'horloge interne n'a pas été oubliée, trois pro¬ 
cédures, ou fonctions lui sont consacrées : « set- 
clock », « adjustclock », « readclock ». 

D'autres procédures et fonctions, telles « peek », 
« peekw », « peekl », et autres pokes, complè¬ 
tent les accès mémoire. 


La production 
du programme-objet 



Le point fort de ce PASCAL c’est « MAKE JOB » 
ou comment produire du code machine. 

Si la programmation et la mise au point s’effec¬ 
tuent en PASCAL pseudo-compilé, l’utilisation 
proprement dite du programme doit être indé¬ 
pendante de l’environnement PASCAL. Cette 
option transforme (compile) un segment 
« pcode » en un segment contenant du code 
machine exécutable (par EXEC et CALL). 

Cette possibilité, banale dans un compilateur 
traditionnel, trouve ici son importance dans le 
milieu multitâche du QDOS. 

La configuration PASCAL + QL obtenue, plaira 
à tous les étudiants et programmeurs appréciant 
ce langage, tant du point de vue prix, que de 
celui de la qualité. 
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Liste des procédures et fonctions standards : 


ABS 

ARCTAN 

CHR 

COS 

EOF 

EX P 

LN 

ODD 

ORD 

PRED 

ROUND 

SIN 

SQR 

SORT 

suce 

TRUNC 

G ET 

NEW 

PAGE 

PUT 

READ 

READLN 

DISPOSE 

RESET 

REWRITE 

WRITE 

WRITELN 





Franck-Olivier Lelaidier Augustin Garcia 


Configuration Brother M 1009 


Cette imprimante est vendue avec une interface 
spéciale pour le QL fabriquée par EPSON. Pour 
l’utilisateur non éclairé il n'est pas toujours aisé 
de comprendre les options de configuration. 
Voici les options retenues par l'importateur : une 
description des deux boîtes de commutation 
vous permettra de configurer l'imprimante à vo¬ 
tre gré. 

8 7 6 5 4 3 2 1 

SW1 


SW2 


X X 




X 


X 

X 

X 

X 


X 

ON 

Vue supérieur de l'avant de l’appareil. 

8 7 6 

5 

4 

3 

2 

1 

X X 

X 

X 



X 

X 



X 

X 



ON 


SW1 

1 Contrôle de parité 

SANS 

ON 

2X-0N/X-0FF 

NON TRANSMIS 

OFF 

3 Vitesse de transmission 

9600 bauds 

ON 

4 Vitesse de transmission 

9600 bauds 

ON 

5 Vitesse de transmission 

9600 bauds 

ON 

6 Parité 

IMPAIRE 

ON 

7 Niveau de code de caractère 

8 bits 

OFF 

8 Mode d'interface 

SERIE 

OFF 

SW2 

1 Longueur de papier 

12” 

OFF 

2 Sélection de jeux de caractères 
étrangers 

3 Sélection de jeux de caractères 

FRANÇAIS 

ON 

FRANÇAIS 

ON 

étrangers 

4 Sélection du type de zéro 

BARRE 

OFF 

5 Saut de perforation 

INVALIDE 

OFF 

6 Autres jeux de caractères 

NON 

OFF 

étrangers 

7 CR (AUTO FEED XT) 

SANS LF 

OFF 

8 SLCT IN 

NON FIXE 

ON 


Trucs à brac 


Plombage en or. 



Choquantes, n'est-ce pas, les premières lignes 
de ce programmes de ZX 81 ? 

S’il s’agissait d’un programme de Spectrum, on 
comprendrait la présence des instructions READ 
et DATA, mais il faudrait se poser des questions 
quant aux trois lettres précédant le signe dollar 
dans des noms de chaînes... 

L’éditeur de lignes des machines Sinclair est ré¬ 
puté intransigeant sur le plan de la syntaxe et 
pourtant ! 


En fait, ces lignes ont d’abord été écrites sous la 
forme de REM, à l’intérieur desquelles on sait 
qu’il est possible de loger à peu près n’importe 
quoi : 20 REM READ MOTS (frappé lette à let- 


10 FOR F=1 TO S 
50 READ MOT* 

30 PRINT MOT* 

i0 DATA "MOT 1 " , "MOTS" , "MOTO" , 
"MOT4." .. "MOTS" 

50 NEXT F 
3100 STOP 

3200 RcM RECHERCHE DE LIGNE 

3250 C'_S 

3300 LET 0=10503 

3500 PRINT "NUMERO DE LIGNE ?" 
3510 INPUT NL 

■3520 CL 5 

9530 GOSUB 9TOO 

954-0 IF A < NL THEN LET M=M+B 
3550 IF A:NL THEN GOTO 9530 
3555 IF A >NL THEN GOTO 9200 
9560 GOTO 9300 

9700 LET H =PE£K CU+11 *256*PEEK W 
3710 LET S =4- +PEEK (IH2.1 +£S6iPEE!< 

•M* 3.» 

3720 RETURN 

3300 PRINT "LIGNE NO "; ML ; " OU P 
ROGRAMME" 

9310 PAINT 

9520 PRXNT "ADRESSE DU ";CHR* PE 
c.r. (W + 4-) J "DE TETE .- " 

9530 PRIMT AT 10,S;U*4- 

934.0 PAINT AT 13,0; "DEBUT DE CET 

TE LIGNE." 

3-350 PAINT AT 20,0 

93S0 L13I NL 

3370 REM COPYRIGHT 1934- 
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tre). Ensuite, il a suffit de POKEr des 0 à la place 
des codes des mots-clé REM placés en tête des¬ 
lignes à « falsifier ». 

Pour ce faire, la partie de programme située 
après le STOP (que l'on peut appeler par un 
RUN 9200) est bien utile : elle trouve en effet 

l’adresse du caractère de tète (mot-clé) de n’im¬ 
porte quelle ligne ; il ne reste alors plus qu’à y 
poker ce que l'on veut, notamment ce fameux 
zéro. 

Bien sûr, la machine refusera tout net d'exécuter 
de telles lignes, mais sans pour autant se « plan¬ 
ter », ni à l’exécution, ni au listage. 

Par contre, si on « sort » une ligne de ce genre 
grâce à EDIT, il ne sera plus possible de la faire 
« remonter » dans le programme, sauf à lui « ren¬ 
dre son REM » au préalable. 

Mais, direz-vous, à quoi peut bien servir cette 
méthode ? 

D’abord, il s’agit d’une petite curiosité toujours 
distrayante à noter, et instructive à expliquer. 
Enfin, des applications peuvent être trouvées 
dans le domaine du « plombage » des program¬ 
mes : remplaçons quelques lignes bien choisies 
d'un logiciel quelconque par des lignes ainsi tru¬ 
quées (sans pour autant introduire d'erreurs de 
syntaxe), et l’exécution deviendra impossible, au 
besoin partiellement : la machine s’arrêtera de 
façon apparemment inexplicable sur un compte¬ 
rendu d'erreur tout-à-fait farfelu (en général un 
C). 

Le « déplombage » consiste tout simplement en 
une réécriture de la ligne ou des lignes en cause, 
que l'on peut repérer grâce à leur décalage (dis¬ 
cret !) d'un espace vers la droite. 

Eventuellement, ce décalage pourrait être sup¬ 
primé, mais il ne ferait alors pas bon oublier 
quelles lignes ont été « piégées » ! 


Patrick GUEULLE 


Une pile qui ne s’use pas si l’on 
s ’en sert 



Sur la demande de plusieurs lecteurs. C’est bien 
volontiers que je donne ci-après quelques éclair¬ 
cissements sur le transfert d'un nombre de la pi¬ 
le calculateur dans une variable du programme 
Basic. Prenons un exemple qui réalise 
64 x 200 : 

Si vous faites POKE 32002,1 qui charge BC 
avec la valeur 320, PRINT USR 32000 vous affi¬ 
che 64000. 

Si vous faites POKE 32002,2 qui charge BC 
avec la valeur 576, PRINT USR 32000 vous affi¬ 
che 0. 

La valeur exacte, 115200, est trop grande pour 
être tenue dans BC qui est le retour du USR. 
Effectuons le transfert de la pile calculateur vers 
une variable Basic à l'aide d’un programme en 
C.M. : 

à la place de CALL DEPILE, ajoutons ceci : 
32014 ED.5B.4B.5C LD DE, (VARS) ; (23627) 

32018 13 INC DE ; 1 ier octet = lettre x 

32019 2A,65,5C LD HL, (STKEND) ; (23653) 
32022 01,05,00 LD BC,5 

32025 A7 AND A ; c, = 0 

32026 ED,42 SBC HL,BC 
32028 ED,BOLDIR 
32030 C9 RET 

Entrez le Basic suivant ; 

I LET x = 0 

10 RANDOMIZE USR 32000 
20 PRINT x 
999 STOP 

faites RUN, vous avez 115200. 

II faut que la variable Basic utilisée soit déclarée 
dans un programme Basic au début de celui-ci 
pour que cette variable prenne la 1 re position de 
la zone variables quand on exécute le program¬ 
me. Il suffira alors de transférer 5 octets de la 
zone STKEND dans la zone VARS (le 1 er octet 
de cette zone contient x puisque'on a déclaré 
une variable d'une lettre x). 
-M. HENROT 


J cassettes de ieu x-™icator <zxav 

/ Software Farm 


CRYSTAL 5 (ZX 81 16K) AGB 



Transportés sur la planète Crystal 5, récemment 
découverte, vous devez découvrir la raison de la 
mystérieuse disparition de 12 explorateurs. 

Jeu décomposé en trois parties sur la cassette, 
plus une introduction vocale à la mise en oeuvre 
du jeu, innovation intéressante. 

_ B.C. 


Mission très dangereuse : récupérer vos camara¬ 
des égarés sur la planète Alien avant qu’ils ne 
soient faits prisonniers par les habitants de ce 
monde hostile. 

Jeu en haute résolution graphique, sans modifi¬ 
cation du ZX 81 version normale : c’est-là le 
principal intérêt de ce jeu qui, pour le reste, 
manque un peu d’originalité et se plante parfois 
(introduction du nom du joueur). 

_B.C. 
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Alien 

ULTIMATE (G.B.) 
Spectrum 48 K 


Dans une lointaine galaxie, sur une lointaine pla¬ 
nète... Ainsi commence la notice de ce pro¬ 
gramme distribué par Ultimate, une marque qui 
a déjà produit de bons jeux d'action pour le 
Spectrum. Disons franchement que celui-ci est 
presque excellent : il peut même vous rendre fou 
à lier et vous faire envoyer à l’asile d'aliénés ! 
Mais trêve de jeux de mots, et voyons le principe 
du jeu. Vous êtes un petit robot, charmant, 
Alien, ultra-sophistiqué (rien à avoir avec le mé¬ 
chant humanoïde du film d’épouvante spatiale). 
Alien a une mission : sauver la gent humaine en 
s’occupant des corps cryogénisés (conservés 
gelés dans de l'azote liquide). La base du pro¬ 
gramme, qui est presque un jeu d’aventures, est 
originale, un peu morbide certes... Mais avant 
tout, les graphismes et les sons sont remarqua¬ 
bles : trois dimensions, hautes définitions, mélo¬ 
dies... Mais hélas, pour que le jeu fût excellent, il 
aurait fallu que la notice (un superbe livret de six 
pages !) soit rédigée dans la langue de Balzac et 
non dans celle de Shakespeare. Comme l’aven¬ 
ture est complexe, on ne comprend donc pas 
tout ce qui vous arrive et ce que vous devez 
faire... 



J.-C.A. 


STOPPEZ LES MISSILES 
(Spectrum) CP Software- 
Semaphore Logiciels 



Ce logiciel est le premier jeu d'aventure graphi¬ 
que, pacifiste, non-violent, non-sexiste et satiri¬ 
que. Eh oui, pour une fois vous n’irez pas dé¬ 
truire une quelconque armada de l’espace, non, 
vous êtes Annie, une gentille pacifiste qui veut 
empêcher le méchant président Raygux (il ne 
vous rappelle personne ?) de déclencher la 
guerre atomique. Pour prévenir l’apocalypse An¬ 
nie envoie des bisous aux policiers et aux sol¬ 
dats ; en revanche, son charme n’a aucun effet 
sur la Dame de fer (de quel pays vient le Spec¬ 
trum déjà ?) et un journaliste vient compliquer le 
tout. 

Ce jeu, à déconseiller formellement aux militaires 
et militaristes, est plutôt un jeu d’action. Le joys¬ 
tick (Kempston) est sinon indispensable, du 
moins bien utile. Les graphismes sont char¬ 
mants... Oui vraiment, nous avons bien aimé ce 
jeu plein de bons sentiments qui est assez dis¬ 
trayant. 


L ’île maudite 
de LORICIELS 
Spectrum 48 K 



L’île est peut-être maudite, en tous cas le jeu ne 
le sera pas par nous ! Ce programme est un jeu 
d'aventure, en français. 

Vous n'aurez donc pas besoin d’un bon diction¬ 
naire ou d’une licence d’anglais pour errer dans 
l’île maudite, en évitant les multiples obstacles 
(par exemple les requins dégénérés) glissés par 
un programmeur vicieux qui veut à toute force 
vous empêcher de rejoindre le sous-marin qui 
doit vous emmener dans un paisible port. A cha¬ 
que tableau apparaît un graphisme simple mais 
utile. Vous « dialoguer » avec l'ordinateur en 
vous aidant d’un vocabulaire donné. 

Nous avons trouvé ce programme très attrayant. 
Nous regrettons toutefois que Loriciels ne livre 
pas le vocabulaire sur la notice (le recopier, si on 
n’a pas d'imprimante, c’est long), et qu’il n’y ait 
pas de plan général accessible à tout moment 
pour savoir sa position. En revanche, nous ap- 
précisions grandement le graphisme, l'humour, 
le suspense du jeu, l’emballage « livre » pratique 
et élégant, et aussi la possibilité de jouer tous 
dans la même équipe en se relayant, car les par¬ 
ties peuvent être longues... 


J.-C-A. 


J.-C.A. 
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L ogo compilé 


Le LOGO a un charme particulier, — 

surtout auprès des jeunes Une tortue qui va plus vite 

programmeurs, mais pourquoi faut- qu’un lièvre 

il que la fameuse tortue se promène 

toujours aussi lentement, sauf dans 

les réalisations complexes et 

fermées ? 


Voici justement un LOGO rapide, 
car les différentes procédures sont 
compilées, et ouvert, car 
l’utilisateur peut ajouter de 
nouvelles routines-mouvements. Le 
tout rentre parfaitement dans les 
16K d’un ZX81. 


DIM P$(29,2,8) 

DIM P(29,6) 

Entrer les valeurs directement, par exemple : 
LET P$(l,l) + "A”, etc. 


TABLEAU P$ 



1 

2 

1 

A 

AVANCE 

2 

D 

DROITE 

3 

G 

GAUCHE 

4 

M 

MONTRE 

5 

C 

CACHE 

6 

H 

HOME 

7 

V 

VA-EN 

8 

< 

AUGMENTE 

9 

> 

DIMINUE 


SPIRALE B/B 



«BUR-EN 0N 

* REPETE 0M 

* REPETE 04- 

* RURNCE 0N 

* CRUCHE 01 

* FIN REPE 

* DIMINUE 0N 

* FIN REPE 

* . 


00 



TABLEAU P 
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Créer tout d’abord deux REM, une première 
contenant 327 caractères et une seconde 
contenant 1024 caractères. La première REM 
contiendra les instructions de base du langage, 
la seconde contiendra les instructions crées par 
l'utilisateur. 

Vérifier que « PEEK 16842 » donne bien « 118 » 
et que « PEEK 17873 » renvoie « 118 ». 

Entrer ensuite les 327 octets constituant les rou¬ 
tines de base dans la REM 1. La liste des codes 
est donnée en annexe. 

Entrer le programme BASIC. Pour fonctionner il 
manque à Logo les tables suivantes qui doivent 
être entrées à la main : 

Lancer ensuite GOTO 11 afin de sauver l'ensem¬ 
ble du programme et des données sur cassette. 
Le programme ne devra jamais être lancé par un 
RUN qui détruirait les deux tables P et P$. En 
cas de « plantage » relancer LOGO par un 
GOTO 100. 


Les mouvements de la tortue 



Dès le lancement du programme on doit obtenir 
un chevron en vidéo inversée en haut à gauche 


de l'écran et trois nombres en haut à droite qui 
sont respectivement : la position de la tortue en 
abscisse, en ordonnée et son angle par rapport 
à l’horizontale (en multiple de 45 degrés). 

Toutes les instructions sont entrées par des 
pressions de touches : 

- instruction du groupe 1 : mouvements de la 
tortue. 

"A" : avance de n points 

“G" : tourne à gauche de n fois 45 degrés 

“D" : tourne à droite de n fois 45 degrés 

"M" : les déplacements de la tortue laissent une 

trace sur l’écran 

“C” : les déplacements de la tortue deviennent 
invisibles 

“V” : va-en n,m sans laisser de trace 
“H” : retourne en 0,0 sans laisser de trace. 

- instructions du groupe 2 

"Y” : affiche la plaie mémoire disponible 
“N” : nettoie l'écran 

: copie l’écran sur l'imprimante 
"stopo” : retour au basic 
“B” : bibliothèque : affiche la liste de toutes les 
routines existante ainqi que la touche permettait 
de les appeler. 

"E” : efface les routines à partir de cette spéci¬ 
fiée par l’utilisateur 
“P” ; passage en mode programme. 

Toutes ces instructions sont utilisables en mode 
direct dès l’apparition du chevron. 


99 

100 


0,0; "I 


•;RT 1,29.; 


4|REM _ 

10 GOTO — 

11 SRUE "LOGB" 

1B LET FL-0 
20 LET PC ■ 16840 

LET K = 10 

_ CL.» 

104. PR INT RT 
10B PRINT RT 
"* flT S .25’ * 

106'PRIN+ R+ 1,25;PEEK 16515 
107 PRINT RT 1,29; PEEK 16514. 

106 PRINT RT 2,25;PEEK 16516 

109 IP INKEYf O"" THEN GOTO 109 

110 IF INKEY*=" " THEN GOTO 110 


2,2 


IF R*=P*(1,1,1) THEN GOTO 2 


114 

LET 

’ R*=INKEY* 



115 

IF 

CODE i 

R*=227 

THEN 

STOP 

116 

IF 

R* = "N 

” THEN 

GOTO 

100 

117 

IF 

R* = "B 

" THEN 

GOTO 

6000 

lie 

IF 

R* = "E 

" THEN 

GOTO 

5000 

120 

IF 

R* = "P 

" THEN 

GOTO 

1000 

125 

IF 

R * ■ "Y 

" THEN 

PRINT 

RT i 

s;17872- 

■PC 




126 

IF 

R* = " : 

" THEN 

LjoPY 


130 

FOR 1=1 

TO K-l 




14-0 

00 

150 

170 

200 

201 

203 

204. 


NEXT I 
GOTO 104 

PRINT RT 0,0;P*(1,2) 

IF P(1,4)=0 THEN GOTO 300 
PRINT &T 0,8;" B" 

INPUT N 

210 POKE (P CI,3) +256*P(1,4) ) ,N 
220 IF P(I,6)=0 THEN GOTO 300 
230 PRINT RT 0, 10.: " ,JB" 

240 INPUT H 

250 POKE (P(1,5) +256 *P(1,6) ) ,M 
300 PRINT RT 0,0," 


305 LET 

) > 


R*USR (P CI,1) +256«P 11,2 


"UH LOGO ZX ©1 <C)P.R 
(17872-PC)✓1024;" KOC 


310 GOTO 104 
1000 REH 
1002 LET 
1005 CLS 
1010 PRINT 
UBERT 1984• 

1020 PRINT 
TETS FREE" 

1030 PRINT 

1040 PRINT "VOULEZ-VOUS:";TRB 27 
;"TRPEZ" 

1050 PRINT 
1060 PRINT 
PROCEDURE 
1070 PRINT—,. _ 

1075^ IF ^"iNKEY * = " " THEN GOTO 1075 
1090 IF INKEV*-"2" THEN GOTO 122 
0 

1110 OIM O*(60,16) 

1115 IF K=29 THEN GOTO 9900 


W 


1*CREER UNE NOUVELLE 
«CORRIGER ";P*(K-1,2 


1120 CLS 

1130 PRINT "NQH DE LR PROCEDURE 

il40 INPUT P *(K,2) 

1150 PRINT RT 1,0;Pi(K,2) 

1160 PRINT RT 2,0;"TOUCHE CORRES 
PONDRNTE T" 

1165 PRINT 

1170 INPUT P*(K,1> 

1171 FOR 1=1 TO K-l 

1172 IF P*(K,1) iP» (I,1) THEN GOT 
O 1176 

1173 NEXT I 

1174 IF P*(K,1,1)-“0" OR P«(K,1, 
D.-P" OR P*(K,1,1)="E" OR P|IK 
1,1) ■"N" OR P*(K,1,1)="." OR P*( 
K, 1,1)="*" OR P* (K, 1,1) ="Y" OR P 
«(K,1,1)= ":" OR P*(K,1,1)="B" OR 

CODE (P#(K,1,1))=227 OR P*(K,1, 
1)="R" OR CODE (P*(K, 1,1) ) =112 O 
R CODE (P*CK,1,1))=113 OR CODE < 
P* CK,1,1))=ll4 OR CODE (P*(K,1,1 
))=llS OR CODE (P*(K,1,1))=ll7 T 
HEN GOTO 1176 

1175 GOTO 1180 

1176 PRINT "TOUCHE DEUR UTILISEE 

1177 GOTO 1160 

1180 PRINT RT 3,l;"Hi 
; RT 4,0," 

1190 LET K=K*1 

1200 PRINT "NOMBRE I>E 

1201 DIP UT R 

1202 PRINT R 
IF «»® THEN GOTO 
IF R=1 THEN GOTO 
GOSUB 9000 
LET P (K-l,5) -Ml 
LET P(K—1,6)>KS 


; P» (K, 1) 


PARAMETRES 


1218 

1209 


1203 

1204 

1205 

1206 

1207 

1208 LET PC «PC 4-1 

121lBLET P(K-l,4)=M2 

1212 LET PC-PC+1 

1213 GOSUB 9000 

1214 LET P(K—1,2)=M2 

1215 LET P (K-1,1) =M1 

1216 POKE PC,201 
1220 IF K = 10 THEN GOTO 
1222 CLS 
1225 LET 1=0 
1230 IF 0*(I+1,1)<>“*" 

1240 

1233 PRINT RT 1,0; O» <14-1 
Q* (14-1,3 TO 16) 

1235 LET 1 = 14-1 

IF 1=21 THEN PRINT RT 


1000 


THEN GOTO 


11 


21,29 


IF 1=21 THEN GOTO 
1238 GOTO 1230 
1240 FOR 1=1 TO 75 


1240 
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134-3 IP O* (I, 1) < >“#•• THEN U ET SP 
*:-i 

1245 IF O* (I, 1)0"#" THEN GOTO 1 
250 

1247 NEXT I 
1250 UET PT=1 
1253 LET PP=0 
1255 LET PRGE-1 

1260 IF PP-20 THEN CLS 

1261 IF PT=61 THEN GOTO 9900 

1263 IF PP=20 THEN LET PRGE-PAGE 
+ 1 

1264 LET OC(PT.1)— "#" 

1265 IF PP =20 THEN LET PP-0 

1266 PRINT RT PPl.lj" " 

1267 PRINT RT PP f 0;‘-*B” 

1275 PRINT RT 0,25; "PAGE : " ; PRGE 
1277 IF INKEV C — 1111 THEN GOTO 1277 
1250 LET R C = INKEY C 
1281 IF fif*":" THEN COPY 

1232 IF R**":” THEN GOTO 1260 

1233 LET CODE=CODE RC 

1285 IF CODE = 112 OR CODE-113 TME 
N GOTO 1373 

1287 IF CODE = 114 OR CODE = 115 THE 
N GOTO 1380 

1290 IF CODE-117 THEN GOTO 1400 

1292 IF flC*"0“ THEN GOTO 1500 

1293 IF OC (PT , 2 ) < > 11 " THEN GOTO 

1277 

1297 IF RC < >"R" THEN GOTO 1315 
1300 PRINT RT 

1303 PRINT " 

1304 INPUT U$ 

1305 IF ( U C — 11 H* 


OR ( U C — 11 N' 
GOTO 9990 


.2;"REPETE 1 


RND P (K-1,6) -0) 


RND P(K—1,4)=0) THEN 


1307 IF LEN UC = 1 THEN LET UC="0" 
+UC 

1308 PRINT RT PP,11;UC 

1310 LET Qf(PT,là TO 13)=UC 

1311 LET OC (PT ,2) -"R" 

1312 LET OCCPT,3 TO 10)-"REPETE 

1313 GOTO 1368 

1316 FOR 1=1 TO K-H 

1317 IF RC<1)=PCCI,1,1) THEN GOT 
O 1330 

1320 NEXT I 

1321 IF R*-"*' 

TO 10)-"FIN RE 

1322 IF flf*"*" THEN PRINT RT PP, 
2;"FIN REPETE" 

RC®"*" THEN LET OC (PT,2) 


THEN LET ©C(PT,3 
REPE" 


1323 IF 

= " 4" 

1324 


IF R C = "*" THEN GOTO 1368 
1325 IF RC-"." THEN LET OC CPT,2 
TO 3)." 

1327 IF RC-"." THEN GOTO 1500 

1328 GOTO 1277 

1340 LET OC (PT,2) -RC 

1341 LET O C(PT,3 TO 10) -PC CI,2) 
1341 PRINT RT PP,2;OC(PT,5 TO 10 

1345 LET NBP—2 

1347 IF P(X,6)=0 THEN LET NBP-1 
1350 IF P(1,4)—0 THEN LET NBP-B 
1353 FOR 0=1 TO NBP 
1355 PRINT RT PP,8+3#G; "1" 

1357 INPUT U$ 

1358 IF (UC*"H“ RND P(K-1,6)=0) 

OR (U C — "N” RND P ( K — 1,4) =0) THEN 
GOTO 9990 

1363 IF LEN UC-L THEN LET UC-"0" 

H)| 

1364 PRINT RT PP,6+3*G;Uft 

1365 LET OC (PT, <9+3#G) TO (10+3.+ 
G) )-UC 

1367 NEXT G 

1366 LET SP-SP+1 

1369 LET PP1-PP 

1370 LET PT -PT 4-1 

1371 LET PP-PP+1 

1372 GOTO 1260 _ 

1373 IF PP-0 RND CODE-112 OR PT» 
SP RND CODE-113 OR PP-20 RND COD 
e-113 THEN GOTO 1277 

1374 LET PT-PT + (CODE-113.) -/CODE'» 
112 ) 

1375 LET PP1-PP 

1376 LET PP-PP+(COOE-113)-(CODE- 
112 ) 

1377 GOTO 1260 

1380 IF (PRGE-1 RND CODE-114) OR 
( (PRQE*20) >SP RND CODE-115) THE 
N GOTO 1277 

1383 LET PT-PT+20#(CODE-115)-20# 
(CODE-114) 

1384 IF PT > SP THEN LET PT-SP 

1385 LET PRGE-PRGE+(CODE-115)-(C 
ooe-114) 

1357 LET LIM-20+INT (PT/RO)+1 
1388 CLS 

1390 FOR I-LIH TO LIH+20 
1393 PRINT QC<I,1>;" ";©C<I,3 TO 
16) 

1395 NEXT I 

1397 GOTO 1260 

1400 PRINT RT PP,l;" 


1405 LET OC(PT)-"# 

1410 GOTO 

1500 REM ‘ 

1501 CLS 

1502 PP.INT "UQUUEZ-UQ1JS LR COMF1 
LRTION (O^NÏ ~ 

1503 IF INKEYC-"" THEN GOTO 1503 

1504 IF INKEYC=“N" THEN GOTO 100 

1506 DZH R(16,2) 

1507 LET S-0 
150© CLS 

1509 LET PC-PCK-1,1)+256»PIK-1,2 

1510 FOR 1=1 TO SP+1 

1511 PRINT RT 5,5;“UNE PETITE SE 
CONGE S.U.P.";RT 10,5;"U.EN SUIS 

R LR LIGNE I 

1512 LET RC-QC(1,2) 

1513 IF ( 17871-Pfc)<15 THEN GOTO 
9900 

1515 IF 

1516 


RC- 

IF RC- 

1520 IF RC- 

1521 ZF RC- 

1522 IF RC- 1 


THEN GOTO 8000 
THEN GOTO 8500 
THEN POKE PC,201 
THEN LET PC-PC+1 
THEN GOTO 100 
1530 FOR U=1 TO K-l 
1540 XF RC(1)-PC(G,1,1» THEN GOT 
O 1600 
1550 NEXT d 

1.580 PRINT RT 21,0; "INSTRUCTION 
INCONNUE LIGNE ";I 
1570 GOTO 2535 
1610 LET NBP—2 

1620 XF QC(X,1S>=" " THEN LET NB 
P- 1 

1630 IF QC(X,13)=" " THEN LET .NB 

P-0 

1640 FOR 0=1 TO NBP 

1650 LET RC-OC(I,(9+3#G> TO (10+ 
3 #Q) ) 

1680 IF CODE RC(2><36 THEN GOTO 
3000 

1690 IF Rf(2)="M" THEN LET IND-5 

1700 XF RCta>»"N" THEN LET IND-3 

1705 IF O# (1,2) =" 1-” OR OC(X,2)-" 

<" THEN GOTO 2550 

1710 POKE PC,56 

1720 POKE PC+1,P<K-1,IND) 

1730 POKE PC+2,P (K-l, IND + 1) 

1740 POKE PC+3,33 

1750 POKE PC+4,P(d,1+2+0) 

1760 POKE PC+S,P(d,e+2#G) 

xFFwiBPaiveT pc+«s,xi9 

1780 LET PC-PC+7 

1790 GOTO 2200 

2000 POKE PC,33 

2010 POKE PC+1,P(d,1+2*G) 

2020 POKE PC+2,P(d,2+2#G) 

2030 POKE PC+3,62 
2040 POKE PC+4 > URL RC 
2050 POKE PC+5,119 
2060 LET PC-PC+6 
2200 NEXT G 
2500 POKE PC,205 
2510 POKE PC+l,P(d,l) 

2520 POKE PC+2,P(d,2) 

2530 LET PC-PC+3 
2540 NEXT I 
2360 POKE PC,33 
2560 POKE PC +1,P(d,3) 

2570 POKE PC+2,PCd,4> 

2580 POKE PC+3,54 

2590 POKE PC+4,P(K-l,XND) 

2600 POKE PC+5,33 

2610 POKE PC+6, (P (d,3) +1) 

2620 POKE PC+7,P(d,4) 

2630 POKE PC+8,54 

2640 POKE PC+9,P(K-l,IND+1) 

2650 POKE PC + 10,205 
2660 POKE PC+ll,P(d,l) 

2670 POKE PC+12 t P(d,2) 

2680 LET PC-PC+13 
2690 GOTO 

5000 REM “ 

5001 LET 

5002 CLS 

5003 GOSUB 6000 
3004 LET BC- 11 " 

5003 PRINT RT 20,0;"INSTRUCTION 
R PRRTIR DE LAOUELLEON NCTTOIB" 
5006 LET FL-0 
3010 INPUT SC 

5011 FOR R — 1 TO K-l 

5012 IF BC-PC(R,1,1) THEN GOTO B 
100 

5020 NEXT fl 
5030 GOTO 5000 
3040 LET FL —0 

6100 IF »<10 THEN GOTO 100 

5109 LET K-R 

5110 LET PC-P (R,1) +256#P (R,SS 

5111 FOR I—K TO 29 
3112 LET P(I,4) =0 
5113 NEXT I 

5115 LET FL-0 
5120 GOTO 100 
5000BREH 
6001 CLS 
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6002 PRINT RT 0,0;"PROCEDURE 
LETTRE UTILISEE" 

5003 PRINT "- 


5005 LET CUB = 1 
5010 FOR T = 1 TO K-l 

6020 PRINT P> (T, 2) ; TRB 15;P*tT,l 

6027 IF T <17*CUB THE N GOTO 5032 
6020 PRINT RT 21,0; "BHÉÉÉÈB" 

5020 ir inkey*-" a tHHrswô 0020 

6030 CLS 

6031 LET CUB-CUB+1 

6032 NEXT T 

5035 IF FL-1 THEN RE TURN 

5036 PRINT RT 21.0: "EffTffTfft " 

6037 IF INKEY**" f ' THEN GOTO 6037 
6036 CLS 

5040 GOTO 106 
.6050 STOP 

'§88? 287 BUUiUI n ii, 

5002 IF S«15 THEN PRINT RT 21.0; 

: "PLUS DE 16 REPETES IHBRI0UES r ' 
3003 IF S-15 THEN GOTO 2535 
3005 IF R*<a>='N" THEN GOTO 6200 
; 5006 IF R*t2»«"M" THEN OOTO 8110 
6010 POKE PC ..22 
3030 POKE PC+1^URL R« 

6030 LET PC-PC+2 

8040 005UB 9000 

6050 LET 6-5 + 1 

8060 LET R t S.. 1) —H 1 

8070 LET R(S,2)=H2 

8080 POKE PC.213 

309© LET PC«f>C*l 

8100 OOTO 2536 

8110 POKE PC,33 

3120 POKE PC + 1..P (K-1,5'J 

3130 POKE PC4-2,P (K —1,6) 

@140 OOTO 8230 

3200 POKE PC,33 

8310 POKE PC 41,PIK —1,3) 

8220 POKE PC + 2,P(K —1,4) 

3230 POKE PC43 ,86 
6340 LET PC-RC+4 
6350 OOTO 

3500 REM “ 

3501 IF 5- 

♦ IMPOSSIBLE R LA LIGNE I 
«502 IF 5*0 THEN PRUSE 50 
3503 IF 5-0 THEN OOTO 1220 
6505 POKE PC,209 
8510 POKE PC+1,81 
3520 POKE PC 4a,194 
3530 POKE PC43,R<3,1> 

3540 POKE PC44,R(5,a» 

8550 LET PC-PC+5 
8560 LET S=ft-1 

3570 OOTO - 

9000 REM 

2001 LET M1 «PC —356 * INT IPC.'S 
9010 LET MS-INT (PC ✓fl56, 

9020 RETUF 

9900 REM 

9901 PRZ* 

IRE. 

3905 POKE PC,801 
3910 OOTO 100 

9990 LET N-l 

9991 IF P(K—1,4)—0 THEN LET W-0 
3393 PRINT RT 81,8;P» <K-1, 8 > ; " N 
.R QUE "i N;" PARAHtTBe(S) A 

3994 INPCrT U* 

9995 PRINT RT 81,0;'' 

«« 

3996 IF R*-"R" THEN OOTO 1306 

3997 OOTO 1358 



16514. 
16523 
16531 
16539 
16546 
16554 
16562. 
16569. 
16577. 
16585 
16593. 
16600. 
16806. 
16615. 
16622. 
16689. 
16636. 
16643. 
16650. 
16658. 
16665. 
16678, 
16679. 
16686. 
16694. 
16701, 
16709, 
16716 
16723. 
16730 
16738. 
16745. 
16753. 
16761. 
16773, 
16761. 
16788. 
16796 
16604, 
16811, 
16819, 
18830, 
16838, 
16843 


64,205,178,11,58,132,84 

1 2®a£Î ' Z2/. 33 ' 131 <^4,78 

254,0,204,228,64,254,1,204 
236,64>254,2,204,as1,64 
254,3,204,3,65,254,4,204 
18,65,2S4,5,204,34,6S,854 
8,804,26,55,254,7,204,49 
65,33,130,64,112,33,131 
64,113,33,134,64,94,29,115 

194.142.64.201.103.121.254 
63,124,200,12,201,103,121 

254.63.124.200.103.180.254 
43,124,800,12,4,201,103 


181,864,0,124,200,4,13,21 
103,121,254,0,124,200,13 
201,103,120,254,0,124,200 

5a 2®Î Ai® 3 A 12 ®A 2S4 - ' ®z i* 4 - 

200,103,181,254,0,184,200 
f'£3 i SS 1 i 136,854, 6 ,184 
iSi/?04,é3,1^4,800 
8,12,801,68.132,64,803,39 

a®a,, 203 ,â 9 ,a 6 s,à 9,263 

22 a 2 S 3 ' 63 i 203 - 6 3 < * 03 ,es 

203.63.203.63.33.132.64 
119,801,68,0,33.130,64,119 
33,131,84,il4,33,13^,64 
119,201,33,837,66,58,0,0 
801,33,20,66,53,0,0,801 
0,0,0,0,0,0,0,0,0,0,0,0 
0,33,133,64,62,107,119,201 
33,133,64,62,159,119,201 
6,1,58,132,64,128,33,132 
64,119,205,64,65,201,6,4 

68.138.64.144.33.132.64 
119,805,64,65,801,0,0,0 
0,0,0,0,0,0,0,0,68,20,33 
131,64,119,68,0,33,130,64 
119,801,186,61,118 


COMMANDEZ VOS LOGICIELS 
EN ANGLETERRE 


2500 TITRES DIFFÉRENTS 

pour AMSTRAD - BBC - COMMODORE 64 et 16 - DRAGON 
ELECTRON - MSX - QL - SPECTRUM - VIC 20 et ZX81. 
dont 200 titres à 50 francs OU MOINS ! 

Offensive Q.L. 

Plus de 40 livres et des dizaines de logiciels/progiciels dont 


• Assembler Metacomco 480 F • Lisp Metacomco 720 F 

• Disassembler Hisoti 250 F • Graphi QL 420 F 

• Hopper (Jeu d arcade) 180 F • BCPL Metacomco 720 F 

• Lands of Havoc I Aventure graphique avec 2000 ecransi 250 F 


• Cartouches Microdrive (en stock !) les 8:260 F - les 16:500 F 

SPECTRUM 

600 logiciels et 30 livres techniques 

AMSTRAD 

Copieur de programmes (K7), 
pour copies personnelles seulement 
Instructions en français. 100 F 

RÈGLEMENT PAR MANDAT INTERNATIONAL (en francs) 
ou EUROCHÈQUE (en livres sterling). 

TOUS FRAIS DE PORT ET D’EMBALLAGE COMPRIS. 
ENVOI IMMÉDIAT DANS LE MONDE ENTIER. 

Instructions séparées en français fournies sur demande 
avec la plupart des JEUX 

RECEVEZ RÉGULIÈREMENT PENDANT 1 AN 
LES LISTES POUR VOTRE ORDINATEUR CONTRE 20 F 
(remboursables 1" commande). 

Vous pouvez réserver vos commandes en téléphonant 
à Didier, Jean-Pierre et Caroline. 

DUCHET - 51 Saint George Road 
CHEPSTOW - NP6 5LA - ANGLETERRE 
Téléphone : - 44 - 291 257 80 
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LANGAGES 


■ 


00 

00 

00 

6B 

00 

CD4041 

018440 

02 

218240 

NOP 

NOP 

NOP 

LD L , E 

NOP 

COLL 4140 

LD BC.4084 
LD (BC),0 

LD HL,4082 

48 

LD B,(HL) 

218340 

LD HL,4083 

4E 

LD C,(HL) 

308540 

LD O,(4085) 

323040 

LD (4030),0 

CDB20B 

COLL 0BB2 

308440 

LD O,(4084) 

218240 

LD HL,4032 

46 

LD B,(HL) 

218340 

4E 

FEOO 

LD HL,4083 
LD C,(HL) 

CP 00 

CCE440 

COLL Z,40E4 

FE01 

CP 01 

CCEC40 

COLL Z,40EC 

FE02 

CP 02 

CCFB40 

COLL Z,40FB 

FE03 

CP 03 

CC0341 

COLL Z,4103 

FE04 

CP 04 

CC1241 

COLL Z,4112 

FEOB 

CP OS 

CC2241 

COLL Z,4122 

FE06 

CP 06 

CC1041 

COLL Z,4110 

FE07 

CP 07 

CCS141 

COLL Z,4131 

218240 

LD HL,4082 

70 

218340 

71 

218640 

LD (HL),8 

LD HL,4033 
LD (HL),C 

LD HL,4086 

SE 

LD E,(HL) 

1D 

DEC E 

73 

C26E40 

LD (HL),E 

JP NZ,40SE 

ce 

RET 

67 

LD H,O 


ta* Sf° 

7C 

LD fi, H 

ce 

RET Z 

ec 

INC C 

ce 

PET 

67 

LD H, O 

79 

FE3F 

LD 0,C 

CP 3F 

7C 

LD R , H 

ce 

RET Z 

67 

LD H,O 

78 

FE2B 

LD O,B 

CP 2B 

7C 

LD O , H 

ce 

RET Z 

0C 

INC C 

04 

INC S 

ce 

RET 

67 

LD H, O 

78 

LD «,B 

FE2B 

CP 28 

7C 

LD O , H 

CS 

RET Z 

04 

INC B 

C© 

RET 

67 

LD H,O 

78 

FE2B 

LD O, B 

CP 28 

7C 

LD O , H 

CS 

RET Z 

67 

LD H, O 

79 

FE00 

LD R,C 

CP 00 

7C 

LD O , H 

ce 

RET Z 

04 

INC B 

0D 

DEC C 

ce 

RET 

87 

LD H,fl 

79 

FC00 

LD R,C 

CP 00 

7C 

LD O , H 

ce 

RET Z 

0D 

DEC C 

ce 

RET 

67 

LD H, O 

78 

FE00 

LD R ,8 

CP 00 

7C 

LD O,H 

C8 

RET Z 

05 

DEC B 

ce 

RET 

67 

LD H, O 

78 

LD O, B 

FE00 

TC 

ca 

CP 00 

LD fl,H 

RET 7 

67 

LD H, R 


79 

FE00 

7C 

CO 

es 

ISO 

C9 

67 

78 

reoo 

7C 

ce 

67 

79 

FE3F 

7C 

ce 

06 

0C 

§08440 

cea7 

CB27 

CB27 

CB27 

CB27 

CB3F 

CB3F 

CB3F 

CB3F 

C83F 

<51344.0 

77 

C9 

eeee 
aies40 

77 

218340 

77 

216440 

77 

C9 

21ED42 

34 

00 

00 

C9 

211442 

36 

00 

00 

C9 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

218640 

3E6B 

77 

C9 

218540 

3E9F 

77 

C9 

0601 

308440 

60 

218440 

77 

CD4041 

C9 

0004 

308440 

90 

218440 

77 

CD4041 
C9 
00 
00 
00 
00 

SS 

00 

00 

00 

00 

00 

3E14 

218340 

77 

3E00 

218240 

77 

C9 


LD O.C 
CP 00 
LD R,H 
RET 2 
DEC B 
DEC C 
RET 
LD H, O 
LD O, B 
CP 00 
LD O. H 
RET Z 
LD H, O 
LD R,C 
CP 3 F 
LD O,H 
RET Z 
DEC 5 
INC C 
RET 

LD O, (4084J 

SLO O 

SLO O 

SLO O 

SLO O 

SLO O 

SRL O 

SRL O 

SRL O 

SRL O 

SRL O 

LD HL,4084 
LD (HL),0 
RET 

LD O<00 
LD HL,4082 
LD (HL),0 
LD HL,4083 
LD (HL),fl 
LD HL,4084 
LD (HL) ,0 
RET 

LD HL,42ED 
INC (HL) 

NOP 

NOP 

RET 

LO HL,4214 
DEC (HL) 

NOP 

NOP 

RET 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

LD HL,4085 
LD 0,68 
LD (HL),0 
RET 

LD HL,4085 
LD O,9F 
LD (HL),0 
RET 

LD 8,01 
LD O,(4084) 
ODD 0,8 
LD HL,4084 
LD (HL).O 
COLL 4140 
RET 

LD 8,04 
LD O, (4084) 
SUB B 

LD HL,4084 

LD (HL) ,0 

COLL 4140 

RET 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

LD 0,14 
LD HL,4083 
LD (HL) ,0 
LD 0,00 
LD HL,4082 
LD (HL) ,0 
RET 
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Il est possible de créer d’autres 
routines qui, une fois compilées 
feront partie intégrante du 
langage. 



Pour cela il est nécessaire de passer en mode 
programme. 

Après passage en mode programme deux pos¬ 
sibilités sont offertes : 


- création d'une nouvelle procédure 

- correction de la dernière procédure entrée 

* création d’une nouvelle procédure : 
donner : 

- le nom de la procédure 

- la touche associée 

- le nombre de paramètres (au maximum 2). 

Ces deux paramètres seront désignés par les 
lettres N par le premier et M par le second. 


Toutes les instructions de groupe 1 sont utilisa¬ 
bles pour créer de nouvelles procédures. En plus 
sont utilisables : 

- “R” répète n fois 
“ ” fin répète 


on peut imbriquer jusqu’à 16 “répète” 

- ">” augmente N ou M 

- “<” diminue N ou M 

- fin de la procédure 
Fonction propre à l’éditeur : 

- monte d'une ligne 

- descend d'une ligne 

- monte d'une page 

- descend d'une page 

- "edit" efface la ligne courante 

- “0” retour direct au compilateur après cor¬ 
rection. 


Après compliateur chaque instruction peut être 
utilisée en appuyant sur la touche qui lui est as¬ 
sociée. 

Bonne logomachie 


Pierre AUBERT 


Caractères quatre à quatre 


La possibilité de générer des 
caractères graphiques 
mémorisables dans les instructions 
DATA constitue l’un des principaux 
attraits du Spectrum. Mais comme 
il est fastidieux de calculer la grille 
correspondante si l’on ne dispose 
pas d’un utilitaire efficace ! 
CARADATA est un programme 
graphique très complet qui sait 
aussi jouer d’une manière 
instructive avec les lignes REM et 
les lignes DATA, entre lesquelles il 
est souvent utile d’organiser des 
échanges. 


CARADATA permet de traiter 4 caractères si¬ 
multanément. 

- soit sur une grille 8x8 que l’on peut recopier 
par rotations et symétries 

- soit sur une grille 16x16 avec ici encore les 


possibilités de dessin simultané par symétrie. 
Après affectation à un caractère, les codes de 
celui-ci sont inscrits directement dans une ligne 
REM. 
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GRAPHIQUES 


r 


Vous ne sauvegardez en fin de travail que les li¬ 
gnes DATA constitués à partir des REM précé¬ 
dentes. Elles pourrront ainsi, sans erreur de 
transcription, être réutilisées dans vos futurs 
programmes. 

La liste s’affiche dès chargement, à la ligne 1 qui 
servira de REM relais pour l’édition des DATA. 
La ligne 2 indique le mode d'emploi. 

Le programme se lance par RUN. Les grilles se 
tracent et le menu de la fig. 1 vous est proposé : 
Vous pouvez alors : 



RR 
BB 
CC 
DD 
EE 
FF 
GG 
MH 
II 
JJ 
K. K 
UI¬ 
MM 
NN 
OO 
PP 
GO 
RR 
SS 
TT 
U U 



• Afficher ou rappeler dans le quadran de votre 
choix un caractère en vue de codage, d'adjonc¬ 
tions ou transformations. 

• Dessiner (fig. 2) avec les touches curseur (5, 
6, 7, 8) complétées par : 

- CAP SHIFT dont l’appui simultané provoque 
un déplacement en diagonale décalé de 45 ° 
dans le sens des aiguilles d’une montre. 

- “9” (GRAPHIC) pour noircir les déplacements 
suivants 

- “0" (GRAPHIC) pour effacer les déplace¬ 
ments suivants 

- " 1 ” pour se déplacer sans écrire ni effacer 

- “T” pour terminer et retour au menu. 

Pour tracer un dessin possédant une symétrie, 
horizontale, verticale, ou par rapport à un point, 
on commence par déplacer le curseur sur l'axe 
de symétrie, ou le centre de symétrie, puis la 
touche “S” et le choix de cette symétrie (centre, 
horizontale, verticale) provoqueront automati¬ 
quement l’affichage du dessin et de son symétri¬ 
que en une seule passe. 

• Faire des transformations à partir d’un carac¬ 
tère, par : 

- symétries verticales, horizontales, - rapport 
au centre, pour les 4 quadrants 

- rotations dans le sens trigo 

Cette dernière possibilité est intéressante car 
elle correspond au changement de direction 
d'un mobile donnant aussitôt son nouveau des¬ 
sin pour cette direction. 

• Affecter le dessin à un caractère graphique. 

• Editer la ligne DATA correspondant à ce ca¬ 
ractère. Le caractère et les codes apparaissent 
dans la ligne 1 REM relais, il faut alors : 

- l'éditer 

- supprimer les ?, remplacer REM par DATA 

- la renuméroter pour l'inclure à sa convenance 
dans le programme. 

• Effacer les lignes inutiles pour ne conserver 
que les lignes DATA à sauvegarder. 


•R«-" ,0,0,16,32 


1 REM 

,126,32,16,00' 

2 REM Ne supprimez pas la lig 
ne 1 qui comporte rem+ 36* Elle 
sera réutilisée,XI faut l éditer 

7 remplacer: REM 
et la renuméroter (de 
10 a 100 ou a partir de 7000 ). 
Supprimez a la fin toutes les au 
très lignes 

100 REM -/ 

110 REM CRRRORTfl 

120 REM - 


130 REM poirr tracer tes caract 
eres et éditer leurs DOTA ***** 
* 

14.0 REM © F. GUERE 4X84 

Pour ZX SPECTR 16 OU -4SK 
*-*-*-*-*-*-*-*-*-*-*-*-#-V-*-*- 


MENU 

SUB EF f a Ce Ki 


REM TRans fer t 
REM variables 


158 LET ME=30O: REM 
160 UET EF = 700; REM 
en t 

170 LET TR=750: 

180 LET 1)0 = 1080 
suivant quad 
190 LET 00=1130 
200 rem grilles 
210 BORDER 7. PAPER 7 

* =0 TO 7: PRINT RT i , 8; 
PAPER 7; “ PAPER 5; " 

NEXT i 

230 FOR i=8 TO 15: PRINT RT i,S 
; PAPER s;" *•; phper 7;" 

“: NEXT i 

240 PLOT 198,122: DRAU 20,0; DR 
AU 0,-20: DRAU -20,0: DRAU 0,20 
250 PRINT AT 7,25; PAPER 7," 

RJ S,26, " "; PAPER 5 ; FfT 7,25;" ” 

.» HT 8,25; " 

PRINT AT 3,7; "B"; RT 3.24; "fl 
' RT 12,7;"B",AT 12,24; -B"; RÈM 
no des quadrants 
270 FOR i=47 TO 175 5TEP 8: PLO 
T 64,i: DRAU 128,0: NEXT i: REM 
Ho riz on t a l 

280 FOR i=63 TO 192 STEP 8: PLO 
T i *1,4.8: DRAU 0,127: NEXT i: RE 
M vertical 

290 FOR i=1 TO 21: PRINT AT i,0 
, CHR $ (64.fi ) ; CHR$ (143 + i); NEXT 

1 

3O0 GO SUB EF 

310 PRINT AT 16,3;"1=Aff. un ca 
ract. et le coder";AT 17,3; "2=De 
ssiner"; AT 18,3;”3=Symetries et 
rotations"; AT 19,3; '4=Affecter u 
n ca r a c te re •; AT 20 ,3; "5 =Ec r i r e l 
es lignes DATA“;AT 21, 3 ;"6=£ffa c 
er les lignes/ proqr" 

320 XNPUT "Uotre ChOiX?",T$: LE 
T t =CODE T$-48 

330 IF T > 0 AND T<7 THEN GO SUB 
EF: GO TO T*1000 
340 GO TO 320 
700 rem SUB EFfacement 
710 FOR i =16 TO 21: PRINT AT i , 
2; " 

: NEXT i: RETURN 
75© REM SUB TRansfert caractère 
dans gri lie 

760 FOR Y=Yd TO Yd+7: FOR X=Xd 
TO Xd+7: 

770 IF POINT (X,Y) THEN PRINT A 
T URL U$,URL H$,CHR$ 143: 

7B0 NEXT X: NEXT Y 
790 RETURN 

600 REM SUB Copie de la grille 
dans les caractères test 
610 PRINT AT 7,25;" " ; AT 6,25, 

’ REM Effacement préalable 

^820 FOR i=8 TO 23: FOR j=0 TO 1 

630 IF POINT <6*i *4,172-8 *TH 
EN PLOT 192 + i,119-J 
640 NEXT j: NEXT i 
645 RETURN 

1000 REM AFFICHER UN CARACTERE E 
XI ST A NT- 


1010 input "Caractère a afficher 


■'?'*• p $ 

3.020 INPUT "Dans quel quadrant'?" 
; o 

1030 GO SUB UG 
1040 PRINT AT L,C; A $ 

1050 LET U$="119-Y": LET H*="X-1 
92": GO SUB TR: GO SUB GQ 
1060 GO TO ME 

1070 REM SUB UG Uariabies suivan 
t les quadrants 
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1080 IF 0 = 1 THEN LET L=7: LET C = 

26: let cp=se 

XI1090 IF Q=2 THEN LET L = 7: let c = 
25: let cp=3 

:«1100 IF 0 = 3 THEN LET L=S: LET C = 
X?25: LET CP =3 

•XI110 IF 0 = 4 THEN LET L=8. LET C = 
26 : LET CP =26 

:;X 11S0 LET Xd=8*C: LET Vd=16B-d»L: 
X-: RETURN : REM coordonnées de deb 
ÿut d'analyse du caractère 
•X 1130 REM SUB OO 

X; 1140 IF 0 = 1 OR 0=2 THEN GO SUB 1 
X- 180 

use if 0=3 or 0=4 then go sue 1 
;X 190 

;X 1160 RETURN 

;X 1170 REM lecture des codes 
X 1180 LET n =0 : FOR i=16608+C TO 1 
v 8400+C STEP 256: PRINT RT n.. CP; P 
EEK i ; •• : LET n=n+l: NEXT i: R 

X ETURN 

X 1190 LET n =8 : FOR i =1S432 + C TO 2 
ft 0224FC STEP 256: PRINT RT n,CP;P 
<< EEK i ; " " : LET n=n+l: NEXT i: RE 
•X TURN 

•x 2000 REM Dessiner - 


X;. 2010 PRINT RT 16,4 ; “5,6,7,8+CBPS 
XX SH. pour d i a g . " ; RT 17,4, "9=ecrir 
e " , " 0=e f f a ce r " ; RT 18,4; “1 


T=termine";RT 
a une symétrie ,p lac 
• ■ près de son axe 


C = 19 : LET S=0 


= r»en écrire 
19 , 4 ; "S'i 1 y 
;¥;er;ffr 20,4; 

;X; puis S ” 

: :ÿ2020 LET L = 3 : LET 
•X 2030 LET noir=2 

2040 LET Cd=CODE INKEY* 

XI 2050 IF C d =57 THEN LET noir=0 
C d =46 THEN 
C d =49 THEN 
INKEY $ = "t” 

Termine 
INKEY $ = "S" 


LET noi r =1 
LET noir=2 
THEN GO TO 22 

THEN GO SUB 2 


INKEY*<>”" THEN GO TO 20 


2060 IF 
2070 IF 
2080 IF 
80: REM 
2090 IF 
200 

2100 IF 
50 

2110 LET L=L+((Cd=9)+(Cd=54)+(Cd 
= 10) RND L < =14) - ( < Cd =6) + ( Cd =55) + 
(Cd=11) RND L >0) 

2120 LET C=C+CC Cd =11)+( Cd=56) +C C 
d =9) RND C <23) - ( C Cd =S) + ( Cd =53) + C 
C d = 10) RND 08) 

2130 IF S THEN GO SUB 2320 
2140 IF noi r < >2 THEN PRINT RT L, 
c; INUERSE noir; "B": PLOT INUERS 
E noir;192+C,119-L: IF S THEN PR 
INT RT L1 .Cl; INUERSE noir;"|": 
PLOT INUERSE noir;192+C1,119-L1: 
GO TO 2040 





PRINT 

RT 

L , c; 

OUER 

i; 

INUER 

•Xv 


XvX SE 1 ; 

PAUSE 

PRINT 

«” 

5 





V.V 



RT 


OUER 


INUER 


*#x*x*x 

x-x-; SE 1 ; 



V.V 


x’x’: 2ISO 

PAUSE 

5 





v.’.» 



GO TO 

2040 





2200 
y» u 
2210 
2220 
2230 
T a V : 
2240 
2250 


H 


U=S 


INPUT PRPER 6; "H=sym 
O =sy ro /c t r i"; z $ 

IF Z$="h" THEN LET ah=L 

IF ZS="V" THEN LET av=C 

IF Z*="C" THEN LET ah=L: 

C 

LET S =1: RETURN 
PLOT OUER 1;192+C,119-L: RE 


LE 


M sur caractère témoin 
2260 IF INKEY * = “•• OR INKEY * = "9" 
THEN GO TO 2260 
2270 GO TO 2030 
2280 REM Termine 

2290 FOR 0=1 TO 4: GO SUB UO: GO 
SUB QQ: NEXT Q 

2300 FOR i =16 TO 18: PRINT RT i, 
28; " •• : NEXT i 

2310 GO TO ME 

2320 REM écriture avec symétrie 
2330 IF Z $ = "V" THEN LET Cl=2*av- 
C+l: LET L1=L 

2340 IF Z $ = "h" THEN LET Ll=2*ah- 
L +1: LET C1=C 

2350 IF Z$=" 0 " THEN LET Ll=2*ah- 
L +1: LET C1=2»3V-C + l 
2360 RETURN 


3000 rem Transformations- 

3010 GO SUB EF 

3020 PRINT RT 17,3;"U=Symetrie a 
axe verticaI ",rt is,3;"H=Sumetr 
ie a axe horizontal"; RT 19,3;"0= 
Sym/cent re "; RT 20,3;"R=Rotation 
1/4 ";RT 2l,3;"T=termine (codes 
pui s menu) " 

3030 INPUT FLASH 1;"UOTRE CHOIX 
•y •• • C % 

3040 IF C*="t" THEN GO TO ME 
3050 INPUT FLASH 1;"Quadrant de 
départ ?";Q 
3060 GO SUB UO 

3070 IF C$="V" THEN LET H$="223- 
X": LET U$="119-V~: GO 'SUS TR 
3060 IF CS="h" THEN LET H*="X-19 
2": LET U S = "Y-104": GO SUB TR 
3090 IF C*="0" THEN LET H*="223- 
X": LET U * = “Y-104": GO SUB TR 
3100 IF C*="r" THEN LET U*="215- 
X": LET H* = "127—Y“: GO SUB TR 
3110 GO SUB 800: FOR q=l TO 4- G 
O SUB UO: GO SUB OO: NEXT g 
3120 GO TO 3030 

4000 REM Affectation touche- 


4010 INPUT "Onei quadrant?";®: I 
F Q<1 OR Q > 4 THEN GO TO 4010 
4020 PRINT RT 21,5; PRPER 6;"Car 
actere MAJUSCULE" 

4030 INPUT "affectation a quelle 
touche?"; LS 

4040 GO SUB UO: IF 0=1 OR 0=2 TH 
EN LET test=16608+0 : GO TO 4060 
4050 LET test =18432 +C 
4060 FOR i=0 TO 7: POKE USR L*+i 
,PEEK test: LET teSt=test+256 : N 
EXT i 

4070 rem R f fich caractère 

4080 PRINT RT CODE L*-64,0; L*; CH 

RS (CODE L S +79) 

4090 input "C=cont. M=menu Uotr 
e choix? ";cs 

4100 if c$ = "m ■' THEN GO TO ME 
4110 IF C$=”C" THEN GO TO 4000 
4120 GO TO 4090 

5000 rem écrire les rem/drtr- 


S010 INPUT “Quel caractère? (MAJ 
USCULE)";LS■ LET m=CODE L*. IF m 
<41 OR m >85 THEN GO TO 5010 
5020 LFT a f =PEEK 23635+256*PEEK 
23636+ 

5030 LET a =a f 

5040 FOR i=7 TO 0 STEP -1: LET P 
S=STR5 PEEK CUSR L*+i) 

5050 FOR j=LEN PS TO 1 STEP -1 . 
POKE a,CODE PS(J): LET a=a-l; NE 
XT j 

5060 POKE ^ ,44: LET a =3-1: NEXT 
POKE a ,34 : POKE a-l,CI#+79) 
^POKE a —2 , m : />OKE a -3,34: "LET 3 = 

5080 REM POKE de 0 dans le reste 
5090 FOR i=a TO af-34 STEP -1; P 
OKE iNEXT i 
5100 LIST 

6010 rem Effacer les lignes inut 

6020 CLS •. PRINT “Vüiii fh>«V«Z SU 
pprimer les lignes du progr et n 
e conserver que les DATA a sauve 
garder": pause 0 

6030 input "lere ligne a effacer 
?"JL1: PRINT "de bu t =";L1 
6040 input “derniere ligne a eff 
acer ?”;L2: PRINT "fin=";L2;" Pa 
t i en tez . . . " 

6050 LET b=256: LET 3=23755 
6060 LET no=PEEK (a+1)+bïPEEK a: 
LET lO =4 +PEEK Ca+2)+b*PEEK Ca+3 


) 

6070 IF no =L1 THEN LET ad=3 
6080 IF no =L2 THEN GO TO 6100 
6090 LET a =a +lO : GO TO 6060 
6100 LET ion=3 + lo-ad-4 : POKE ad + 
2,lon-INT (lon/b)ïb: POKE ad+3.I 
NT ( Ion Xb) : PRINT ; PRPER 6: "TRP 
EZ ";L1;" puis ENTER": BEEP .2,1 
2: STOP 

9999 SRUE "CRRRDRTfi" LINE 5100 


F. QUÉRÉ 
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X 

D 


Quatre programmes de jeu 


ZX81 français 


Nouvel essai de francisation du ZX réussi, cette 
fois-ci en utilisant la HRG Memotech. Après 
avoir entré le programme et pressé RUN, ap¬ 
puyer sur la touche NEW pour vider la mémoire. 
Tout programme entré ensuite apparaîtra fran¬ 
cisé. Par exemple, si vous appuyez sur la touche 
THEN vous obtiendrez ALORS. 


1 

REM 

1234567890123 





115 

POKE 

391,CODE 

» y 

185 

POKE 

448,CODE 

"M” 

2 

REM 



116 

POKE 

392,CODE 

» j n 

186 

POKE 

449,CODE 

Il £ H 

3 

REM 

* ZX81 EM "FRANCHIS" 

* 


117 

POKE 

393,CODE 

"D" 

187 

POKE 

450,CODE 

"w" 

4 

REM 



118 

POKE 

394,CODE 


190 

POKE 

451,CODE 

H £ II 

5 

REM 

* MICRO CLUB 

ORLEANS 

* 


120 

POKE 

395,CODE 

"M" 

191 

POKE 

452,CODE 

"C" 

6 

REM 

* LLATY BERTRAND 


* 


121 

POKE 

396,CODE 

"0" 

192 

POKE 

453,CODE 

HR" 

7 

REM 



122 

POKE 

397,CODE 

"N" 

193 

POKE 

454,CODE 

H T II 

3 

REM 


60 

POKE 

339,CODE 

"A" 

123 

POKE 

398,CODE 

Il J II 

194 

POKE 

455,CODE 

"t" 

10 

FflST 


65 

POKE 

344,CODE 

"n" 

124 

POKE 

399,CODE 

Il ç II 

200 

POKE 

456,CODE 

H p H 

11 

POKE 

16514,33 

70 

POKE 

348,CODE 

"u" 

135 

POKE 

410,CODE 

Il R II 

201 

POKE 

457,CODE 

"t" 

12 

POKE 

16515,0 

75 

POKE 

349,CODE 

Il £ Il 

136 

POKE 

411,CODE 

" 0 " 

205 

POKE 

458,CODE 

H £ H 

13 

POKE 

16516,0 

76 

POKE 

350,CODE 

“t" 

137 

POKE 

412,CODE 

"U" 

206 

POKE 

459,CODE 

"X" 

14 

POKE 

16517,17 

77 

POKE 

351,0 


138 

POKE 

413,CODE 

Il p II 

207 

POKE 

460,CODE 

Il £ H 

15 

POKE 

16518,0 

80 

POKE 

358,CODE 

“fl" 

140 

POKE 

414,CODE 

Il y II 

208 

POKE 

461,CODE 

HQ" 

16 

POKE 

16519,0 

81 

POKE 

359,CODE 

Il ^ Il 

141 

POKE 

415,CODE 

"a" 

209 

POKE 

462,CODE 

"u" 

17 

POKE 

16520, 1 

82 

POKE 

360,CODE 

IIQ.I 

145 

POKE 

416,CODE 

« $ » 

215 

POKE 

471,CODE 

"S" 

18 

POKE 

16521,0 

83 

POKE 

361,CODE 

II R,1 

146 

POKE 

417,CODE 

n y n 

216 

POKE 

472,CODE 

n j n 

19 

POKE 

16522,4 

84 

POKE 

362,CODE 

Il g Il 

147 

POKE 

418,CODE 

n p n 

220 

POKE 

476,CODE 

Il £ Il 

20 

POKE 

16523,237 

85 

POKE 

363,CODE 

"a" 

148 

POKE 

419,CODE 

HR" 

221 

POKE 

477,CODE 

H p 1, 

21 

POKE 

16524,176 

90 

POKE 

364,CODE 

u p u 

149 

POKE 

420,CODE 

"O" 

222 

POKE 

473,CODE 

H p II 

22 

POKE 

16525,201 

91 

POKE 

365,CODE 

"fl" 

150 

POKE 

421,CODE 

Il g II 

223 

POKE 

479,CODE 

Il p II 

23 

RRND 

USR 16514 

92 

POKE 

366,CODE 

u g u 

155 

POKE 

422,CODE 

Il £ Il 

224 

POKE 

480,CODE 

"t" 

30 

POKE 

276,CODE "a" 

95 

POKE 

367,CODE 

u | ii 

156 

POKE 

423,CODE 

Il J II 

225 

POKE 

481,CODE 

H y n 

31 

POKE 

277,0 

96 

POKE 

368,CODE 

M IT 

157 

POKE 

424,CODE 

"R" 

226 

POKE 

482,CODE 

n | n 

35 

POKE 

290,CODE "G" 

97 

POKE 

369,CODE 

n p u 

158 

POKE 

425,CODE 

n - n 

227 

POKE 

483,CODE 

"D" 

36 

POKE 

291,CODE V 

98 

POKE 

370,CODE 

"R" 

159 

POKE 

426,0 


228 

POKE 

484,CODE 

" y •' 

40 

POKE 

315,CODE "E" 

99 

POKE 

371,CODE 

n | n 

165 

POKE 

435,CODE 

"M" 

230 

POKE 

490,CODE 

"0" 

45 

POKE 

318,CODE "R" 

100 

POKE 

372,CODE 

"CI" 

170 

POKE 

438,CODE 

"H" 

231 

POKE 

491,CODE 

h y H 

46 

POKE 

319,CODE "A" 

101 

POKE 

373,CODE 

u e n 

171 

POKE 

439,CODE 

"0" 

232 

POKE 

492,CODE 

il r n 

47 

POKE 

320,CODE "c" 

105 

POKE 

383,CODE 

n ^ u 

172 

POKE 

440,CODE 

"R" 

248 

POKE 

500,CODE 

h y u 

50 

POKE 

327,CODE "C" 

106 

POKE 

334,CODE 

•'E" 

173 

POKE 

441,CODE 

n 2 K 

241 

POKE 

501,CODE 

IIQII 

51 

POKE 

328,CODE "A" 

107 

POKE 

385,CODE 

"N" 

175 

POKE 

442,CODE 

Il £ Il 

242 

POKE 

502,CODE 

"U" 

52 

POKE 

329,CODE "S" 

108 

POKE 

386,CODE 

"t" 

176 

POKE 

443,CODE 

"N" 

243 

POKE 

503,CODE 

110,1 

53 

POKE 

330,CODE "e" 

110 

POKE 

387,CODE 

n y n 

177 

POKE 

444,CODE 

"C" 

244 

POKE 

504,CODE 

„ H» 

55 

POKE 

334,CODE "C" 

111 

POKE 

388,CODE 

h j u 

178 

POKE 

445,CODE 

HQ II 

245 

POKE 

505,CODE 

H g » 

56 

POKE 

335,CODE "H" 

112 

POKE 

389,CODE 

n j n 

179 

POKE 

446,CODE 

H RH 

308 

RAND 

USR 9346 


57 

POKE 

336,CODE "A" 

113 

POKE 

390,CODE 

Il ç M 

180 

POKE 

447,CODE 

"e" 

310 

SLOW 




38 - ORDI-5 n° 13 septembre 1985 


Bertrand LLATY_. 















Verbes du premier groupe 
(ZX81 16 KO) 


IL 

ELLE 

ERR 

ERR 

E 

E 

IRR 

IRA 


u 


Un petit didacticiel de conjugaison à la limite du 
pédagogique et de l’amusant et qui possède une 
structure facile à étudier et à réutiliser. 


10 REH CONUUGRISON DES UERBES 
DU 1 GROUPE RU PRESENT ET 
RU FUTUR...MRRMRIN G. 

” 20 LET U*1 

30 LET S-U+U 
: 4.0 LET Z*S+U 

60 LET C-Z+U 
....; 60 LET D=C+y 

70 let f=d+z 
75 LET X=U-U 
se dim rs<f> 
es dim n <6) 

90 let ns=" ilte" 

i lîl tIT if.:* tu 

>:¥ eronserez eronteront 
120 LET T|« "JE es , 

125 let Ys*dRRi irrs irr irr 

IRONSIREZ IRONTIRONT 
130 LET IS= ’URIS URS UR 
; R RLLONSRLLEZ DONT UONT = 

135 LET X*="ENUERRRI ENUERRRS E 
NUERRR ENUERRR ENUERRONSENUERR 
ez enuerrontenuerront" _ 

14.0 LET L S = " DECONGELERCONGELER 
DECELER RECELER DEGELER D 
•• EMRNTELERCELER CISELER ECR 

•• RTELER GELER HRRCELER MRRTE 

LER MODELER PELER 
14-5 LET C* = "CONJUGRISON DES UE R 
•• BES DU 1 GROUPE RU PRESENT OU RU 
FUTUR.CHOISISSEZ EN REPONDANT S 
POUR PRESENT ET S POUR FUTUR. 

..... 150 LET M*=-RRCHETER ACHETER 

••• CROCHETER FURETER HRLETER 
155 LET K$«"REIOU" 

160 PRINT “POUR SRUUEGRRDER RPP 
... UYER SUR UNE TOUCHE" 

170 IF INKEYJ*' 1 " THEN GOTO 170 
•X' 130 SRUE "CONUUGRISON ES" 

190 CLS 

200 let y=c*f-u 

..... 210 LET E=Z*(D+S) 

;.y, 220 FOR I«U TO LEN CJ-Y 
•V. a30 PRINT RT E > X;C$(Ï TO I4-YJ 

24.0 for u«u to d*s 
250 NEXT U 
260 NEXT I 
265 CLS 

270 PRINT RT U,Dj"ÜERBE DU 1 GR 
OUPE 7" 

:: 275 LET S* (S TO SJ»"E" 

280 INPUT O* 

290 FRST 

300 LET Q=LEN OS 
310 IF O < C THEN GOTO 550 
320 LET US=OS(9-Z TO O) 

••••; 330 IF US (Z TO C) < > "ER" THEN GO 

TO 500 

: 335 GOSUB 1400 

t 340 IF Q>«S*D THEN LET US-OS(U 
'■* TO S*D) 

350 IF Q<S*D THEN LET US*QS+ZS< 
U TO S*D-OJ 
360 LET G«X 
: 370 FOR I«U TO F 

360 LET N(I)*X 
390 NEXT I 

400 PRINT RT S+U,Fi"PRE5ENT/P,F 
: UTUR/F" 

410 SLOU 
420 INPUT RS 

• 430 IF RS=“F" THEN GOTO 575 

440 IF RS="P" THEN GOTO 590 
: 450 GOTO 400 

C 500 SLOU 

505 PRINT RT S#D^X;"CE N EST PR 
. S UN UERBE DU 1 GROUPE" 

510 FOR I*U TO F*D 
515 NEXT I 
517 CLS 
520 GOTO 270 
550 SLOU 

555 PRINT RT S*D,X;"IMPOSSIBLE 
: DE CONTINUER RUEC ";OS 
560 FOR I=U TO F #D 


ï: 


565 NEXT I 

567 CLS 

570 GOTO 270 

575 LET G = U 

580 LET US*"FUTUR" 

585 GOTO 595 

590 LET US-"PReSENT' 

595 FRST 


600 

0k 

IF 

OS»" 

RLLER" THEN 

GOTO 

130 

605 

IF 

QS = " 

ENUOYER" RND G=U 

THE 

N GOTO 

1000 





610 

O 800 

IF 

US (U 

TO 

SJ = "EL“ 

THEN 

GOT 

615 

O 900 

IF 

US (U 

TO 

SJ «"ET" 

THEN 

GOT 

620 

IF 

us <u 

TO 

SJ »"QY" 

OR US(U 


>=X T 


TO S)= "UY" THEN GOTO 1100 
625 IF US(S TO S)="G“ RND G: 

HEN GOTO 1200 
630 LET US=G>S<U TO O-S) 

635 GOSUB 940 
640 FOR I=U TO F 
645 LET E»I*D 

650 IF G >X THEN GOSUB 950 
655 IF G*U THEN GOSUB 970 
660 NEXT I 
665 SLOU 

670 PRINT RT C*D,D;"NOUUEfiU UE» 
8E ? Y✓N" 

'POUR RECOMMENCER FRI 


67 mS I ÎSb" PC 

R 68^INpW H RS 


THEN STOP 


685 IF R S < >“Y 
690 GOTO 265 
695 GOTO 860 
700 FOR I=U TO F 
70S LET RS(I)-US 
710 LET N(I)=U 
715 NEXT I 
720 RETURN 
750 FOR I=U TO C 
755 LET N(IJ«X 
760 NEXT I 
765 FOR I=D+U TO F 
770 LET N <I) «X 
775 NEXT I 
780 RETURN 
800 FOR I=U TO LEN 
P D*S 

805 IF US-LS(I TO I+F+UJ 
OTO 630 
810 NEXT I 

LET JS*NS «S TO S) 

GOSUB 700 
GOSUB 850 
GOTO 630 
LET N (D) «X 
LET N (D+UJ =X 
RETURN 

FOR I=U TO LEN MS-<F+UJ 


L*-(FfU) STE 


THEN G 


STE 


I+F+UJ THEN G 


OS.; 


815 
820 
825 
830 
850 
855 
860 
900 
P D*S 

905 IF US=*MS(I TO 
OTO 630 
910 NEXT I 

915 LET ÜS*NS(Z TO Z) 

920 GOSUB 700 
925 GOSUB 850 
930 GOTO 630 

940 PRINT "CONUUGRISON DE 
" RU "; US 

Qiq DFTI IRN1 

950 IF N(IJ=X THEN PRINT RT F +-I 
J D; SS (E-C TO E) ; “ ";US;TS«E-C TO 
E) 

955 IF N(IJ«U THEN PRINT RT F 4-1 
,D;3SCE-c TO EJ;" "; US; RS 11 ) ,;TS ’ 
E-C TO E) 

960 RETURN 

970 IF N(IJ=X THEN PRINT RT F 
<D; SS (E-C TO E) ; " US.; FS (E-C TO 
E) 

975 IF N ( I> =U THEN PRINT RT F 4-1 
> D; ss (E-C TO E) ; " " ; us; R s t IJF S ( 
E-C TO EJ 
980 RETURN 
1000 GOSUB 940 
1005 FOR I=U TO F 
LET E=I*D 
LET U>It (F -é-U J 

PRINT RT F«-I, S*D; SS (E-C TO 

NÉX'f < ï _F T ° U) 

GOTO 665 
1100 LET JS=NS(U TO UJ 
1105 GOSUB 700 
1110 LET Rf(D)="Y" 

1115 LET RÉ(D+UJ="Y" 

1120 LET US=QSCU TO O-ZJ 

1125 GOTO 635 

1200 LET US-NS (C TO CJ 

1205 GOSUB 700 

1210 GOSUB 750 

1215 GOTO 630 

1300 GOSUB 940 

1305 FOR I=U TO F 

1310 LET E = 1*D 

1315 LET U«I«(D+UJ 

1320 IF G=U THEN PRINT RT FtI,D.. 
SSCE-C TO EJ:" ";Y*IE-C TO EJ 
1325 IF G=X THEN PRINT RT F+I,D.l 


1010 
1015 
1020 
E) ; " 
1025 
1030 
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JEUX 


s* ce-c to e) ; ” • 
1330 next i 
134.0 goto 665 
1400 for i *u to 


EN LET S* (S TO 
1410 NEXT I 
1415 RETURN 


S) 


TO 

U) 

TO 

I) 


TH 



VERBE OU 1 GROUPE T 

PRESENT /P ,FUTUR/F 
CONJUGAISON DE MANGER RU PRESENT 


UE MRNGE 
TU MANGES 

II- MRNGE 

ELLE MRNGE 
NOUS MANGEONS 
UOUS MANGEZ 
ILS MANGENT 
ELLES MANGENT 


NOUUERU UERBE ? Y /"N 
POUR RECOMMENCER FRIRE OU 


Georges MARMAIN 


Spectrométéo 
(Spectrum 48K) 


Très joli programme parfaitement de saison qui 
donne des prévisions métrorologiques pour une 
échéance de 24 heures en se basant sur une 
méthode due à l’Abbé MOREUX et qui donne 
des résultats bons à 80 %, le tout avec beau¬ 
coup de couleur et d’humour. 



1® REM 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a 
* SPECTROMETEO • 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a 


11 

12 

13 


14 

15 

16 
17 

IB 

19 


REM 

REM 

REM •*•**#•«**•*»••*»*•*•** 

* <PF .HARDY —1904 * 

*********************** 

REM LE 5-3-84 A ETAULIERS 

REM 

REM 

REM 

REM 

REM ♦»»♦♦♦♦»♦♦♦♦•♦♦♦»♦♦♦♦#♦ 

* DATAS DES UENTS » 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a* 


20 RESTORE 25: DIM U* (8,10): F 
OR F=1 TO 8: READ V*(F): NEXT F 

25 DATA "NORD" , •'NORD-EST" , "EST 
","SUD-EST","SUD","SUD-OUEST","O 
UEST","NORD-OUEST" 

26 REM ♦♦♦♦♦♦♦♦♦*♦♦»♦♦♦♦#♦♦♦♦* 

* DATAS DES SAISONS * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a 


30 RESTORE 35: DIM S*(4,9): FO 
R F-l TO 4: READ S*(f): NEXT f 
35 DATA "ETE","AUTOMNE","HIVER 
","PRINTEMPS" 

40 POKE 23658.8: POKE 23609.20 
50 LET U =0 : GO TO 8000 
60 GO SUB 999? 

65 REM ♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 
* INTRODUCTION * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


70 PRINT "Pour vos prévisions 


vous aurez besoin : •* : PRINT : P 
«INT "lld'un baromètre": PRINT : 
PRINT "2)de savoir La direction 
du vent" 

80 PRINT : PRINT 
ncerne cette der- 
que Le vent vient 
auche de La direc- 
e par une girouette 
e tour environ)..." 

90 PRINT RT 18.8; 


•En ce qui co 
niere.sachez 
toujours a g 
tion indique 
(de l/8ais d 


— pi i ..O.*». ‘Lorsque vous 

aurez réuni";AT 19,8;"tous ces 
ingrédients,"; at 20 , 8 ;"tapez une 
touche...": pause 0 

96 REM ♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦♦ 
♦DEBUT DE LR PREVISION» 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a* 


100 GO SUB 9997 

110 INPUT "Press ion (en ma de me 
rcure)?";p-. print RT 20,10; "Près 
sion: ";p: LET p=(p>765)+2»(p>76 
0 AND p<«765)+3*(p>75S AND p<«78 
0) ♦ 4» (P <-755) 

115 LET U-l 

120 PRINT AT 0,a;"Quelle est La 
direction du vent?" 

130 PRINT : PRINT : PRINT "l--> 
NORD": PRINT "2—> NORD-EST": P 
RINT “3— >EST": PRINT "4-->SUD-E 
ST": PRINT "5 —>SUD" 

140 PRINT "6——>SUD-OUEST": PRIN 

T "7 -> OUEST ": PRINT "8-->N0RD~0 

UEST" 

150 INPUT "No correspondant ?"; 
v: IF V<1 OR V>8 THEN GO TO 150 

151 PRINT AT 21,10;"Vent 
;v$(U): GO SUB 9997 

152 LET V = (V=1) +2* (V=2 OR V =3) + 
3 ♦ ( V =4 OR V =5) +4 ♦ ( V =6) 4-5» ( V -7 OR 

V -8) 

160 print "Quelle est la saison 
en cours ?": print : print -. PR 

INT "1-> ETE": PRINT : PRINT "2- 

->AUTOMNE“: PRINT : PRINT “3-->H 
IVER" : PRINT : PRINT "4 —>PRINTE 
MPS “ 

170 INPUT “No correspondant ?"; 
S: IF S<1 OR S>4 THEN GO TO 170 

171 PRINT AT 18,10;“Saison 
";S$(S): GO SUB 9997 

200 RESTORE S♦1000 +P »100+V♦10 
250 READ t«,U* 

260 PRINT TAS 9;"SPECTROMETEO 

**♦**«*♦♦*♦♦♦♦" 

•- PRINT : PRINT : PRINT : PRINT 
PRINT : PRINT 

300 PRINT t*: PRINT U*: PRINT : 
PRINT AT 17,10; FLASH 1;“Tapez: 
C>CopietiS)Suite" 

310 IF INKEY$ < >"S" AND INKEY*O 
"C“ THEN GO TO 310 
320 IF INKEY*="C" THEN PRINT AT 

COPY®'’ 

330 LET U-0: GO SUB 9997 

340 PRINT "Vous desirez :": PRI 

NT : PRINT : PRINT "1-iRevoir L 

a présentation": PRINT : PRINT " 
2-->Obtenir une autre prévision" 
"3-->Quit te r le 


PRINT : PRINT 
programme" 

350 IF INKEY* <' 
THEN GO TO 350 
360 IF INKEY*- 1 


OR INKEY*>"3" 
THEN RUN 


370 IF INKEY * — "2" THEN GO TO 10 
380 CLS PRINT "AU REVOIR...": 
PAUSE 50: CLS : STOP 

994 REM 

995 REM ♦*♦♦♦♦«♦*♦♦♦♦♦♦♦**♦♦♦♦* 

♦DATAS DES PREUISIONS ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 


996 REM 

997 REM 
999 REM 

1000 REM ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
♦ ETE * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a 


1110 DATA "Beau ou assez beau.", 
"Journées chaudes ,nuits Fraîches 

1120 DATA "Beau.“,"Journées chau 
des,nuits fraiches." 

1130 DATA "Beau,mais orages poss 
ib Les.“,"Tres chaud Le Jour,chau 
d la nuit." 


1140 DATA "Beau ou très beau."," 
Chaud ou très chaud." 

1150 DATA "Beau.",“Chaud dans La 
journée,assez Frais ta nuit 
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laie DPT fl "Assez beau,ondees poi 
sib Les.","Assez chaud." 

1220 DATA "Beau ou assez beau.av 
ec parfois averses orageuses.”." 
Chaud ou assez chaud le Jour, 
nuits fraîches." 

1230 DATA "Beau.avec possibilité 
s d'aversesorageuses."."Chaud.” 
1340 DATA "Beau.ondees orageuses 
possiblés."."Assez chaud. 1 
1250 DATA "Assez beau.nais ondee 
s possiblesennontaone.","Tenpera 
tur e douce." 

1310 DATA "Ondees ou averses ora 
geuses."."Températures douces." 
1320 DATA "Pluie orageuses"Te 
mperature douce." 

1330 DATA "Temps lourd et orages 
avec averses . ","Chaud." 

1340 DATA "Temps lourd et orages 
possib les"Assez chaud" 

1350 DATA "Ondees et averses ave 
c un peu devent"Temperature d 
ou ce . " 

1410 DATA "Pluie et vent.",“Temp 
erature dou ce." 

1420 DATA "Pluies orageuses avec 
un peu de vent.","Temps lourd e 
t humide." 

1430 DATA "Averses orageuses et 
vents violents.“,"Chaud et 

humide." 

1440 DATA "Orages et averses ora 
geuses.","Assez chaud." 

1450 DATA "Pluie a tendance orag 
euse avec vent."."Doux et huiid 

e . " 

1999 REM 

3000 REM *********************** 
S AUTOMNE * 

■ïfrfrfrfr-Utfrfrfr************* 

3110 DATA "Beau ou assez beau.". 
"Chaud le jour.Gelees a craindre 
la nuit." 

2120 data "Beau ou assez beau.". 
"Chaleur modereetgelees a 
c raind re . “ 

2130 DATA "Beau ou assez beau.", 
"Assez chaud le jour,frais la 
nuit:gelees possibles." 

2140 DATA "Beau“Chaud ou asse 
z chaud le jour,nuits fraîches. " 


3150 DATA "Beau ou modérément nu 
ageux.“,“Chaleur moderee le jour 
.nuits fraiches . " 

2210 DATA "Ondees loca les.","Tem 
peratures fraîches." 

2220 DATA “Assez beau,avec possi 
bilites d'ondees.","Frais le 

jour et gelees locales." 

2230 DATA "Nuages modérés;ondees 
et eclair-cies.",“Assez chaud." 
3240 DATA "Ondees locales et ven 
ts faib lestemperature douce. 

3250 DATA "Assez beau,avec ondee 
s locales et giboulées en monta 
gnis . ■* , "Te »p erature douce, par foi 
s un peufraiche." 

2310 DATA "Averses"Temps frai 

s . " 

2320 DATA "Ondees en plaines,gib 
eulees en montagnes"Temps fr 

a »s . " 

2330 DATA "Nuageux,avec pluies e 
parses et vent modere.","Temps 
doux." 

2340 data "Pluie possibies,vent 
modere.","Tempera ture douce." 
2350 DATA "Ondees en plaine,gibo 
ulees en montagne;vent faible. 

","Temps frais." 

2410 DATA "Averses de pluie ou d 
a neige"Temps froid et temper 
ature en baisse." 

2420 DATA "Averses orageuses et 
vent modéré"Temps frais 

2430 DATA "Pluie et parfois aver 
ses orageuses avec vents 

assez forts","Tempera ture douce. 

3440 DATA "Pluie et vent fort.", 
"Temps doux et humide." 

2450 data "Fortes pluies et vent 
fort, bourrasques de neige 

en montagne","Temps frais." 

2999 REM 

3000 REM frfrfrfrfrfrfrfrfrfrfrfrfrfrfrfrfrfrfrfrfr.fr* 

* HIVER * 

*********************** 
3110 DATR "Beau,avec tendance a 
la brume etau brouil lard.","Temp 
erature fraîche." 



11 PREMIERS 


NUMEROS 

1096 


::: 


DE 


:::«««» : 



Vf 


rMMAWK* 



RETOURNEZ 
LE BON 

Cl-CONTRE 





OlWOfl 

-- 

BON DE COMMANDE 

(à retourner à LIST - Service Numéros - 

5, place du Colonel-Fabien - 75491 Paris Cedex 10). 


Nom 


Prénom 


Adresse 


Code Postal 


J _l_l Ville 


Je désire recevoir la collection complète des 11 premiers 
numéros de LIST au prix de 109 FJe joins mon règlement indis¬ 
pensable à l’ordre de LIST. 

(Offre valable pour la France métropolitaine) 
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3120 DATA "Beau ou assez beau,un 
peu brumeux "Journees f 

roides et gelees nocturnes." 

3130 DATA "Beau ou assez,parfo i s 
brumeux.","Temperature moderee 
te jour, nuits froides ; g e i e e 

s possibles." 

314.0 DATA "Beau ou assez beau.br 
urnes.","Temperature douce ou ass 
si doucele jour;geiees nocturnes 

3150 DATA "Beau et un peu brumeu 
x.","Tempera tures moderees le jo 
u r; fortes gelees la nuit." 

3210 DATA "(Assez beau g i bou lees 
an montagne","Froid . " 

3220 DATA "Temps brumeux; giboule 
es ou neige "/'Froid." 

5230 DATA "Assez beau a modereme 
nt nuageux,avec ondees possibles 
."."Température douce." 

3240 DATA "Quelques nuages,ondee 
s.","Tempera ture fraîches." 

3250 DATA "Modérément nuageux,gi 
boulees en montagne . ","Froid." 
3310 DATA “Neige ou giboulées.", 
"Froid." 

3320 DATA "Neige ou giboulées.", 
"Froid." 

3330 DATA "Pluie possible,avec v 
ent fort.","Tempera ture douce." 
3340 DATA "Pluie ou neige avec v 
ent.“,"Temperatue douce." 

3350 DATA "Giboulées ou neige.", 
"Froid." 

3410 data "Neige et vent parfois 
violent. "."Froid." 

3420 DATA "Gibouleas.neige possl 
bie;vent modéré a assez fort." 
,"F roid . " 

3430 DATA "Pluie ou neige fondue 
.avec ventsforts.","Temps assez 
froid,parfois doux." 

3440 data "Pluie ou neige avec v 
ent vio lent","Température douce. 

3450 data "Pluie et bourrasques, 
ou neige.","Froid.“ 

3999 REM 

4000 REM *********************** 

* PRINTEMPS * 

t********************** 
4110 DOTR “Beau ou assez beau.", 
"Journées chaudes,nuits fraîches 
.gelees matinales." 

4120 DATA "Beau ou assez beau.", 
"Journées douces ou assez chaude 
s Nuit s fraiches ;ge lees possibles 

4130 DATA "Beau ou assez beau.", 
"Journées chaudes .nuits fraîches 


LS 

3010 FOR f=l TO 22: PRINT PAPER 

": NEXT f: POPER 5: INK 5: BO 
RDER 5 

8020 FOR f=0 TO 2*PI STEP PI/20 
8025 PLOT INK 6;55,120 
3030 DRAU INK 6; COS f*<(RND*20)+ 
30),SIN f*((RND*20)+30) 

8040 NEXT f 

8045 REM *********************** 
* PETIT NUAGE * 

*********************** 
8050 RESTORE 8080: FOR rcUSR "a" 
TO USR "a"+87: READ a: POKE f,a 
: NEXT f 

3060 LET la13: LET C=2 : LET Z«1 
3063 > PRINT RT l,c; INK 7;" ABCDE 


IF 


l+1.c; 

INK 

7; 


l +2,c; 

INK 

7; ' 

1 ijM 


3070 IF Z=2 THEN GO TO 8100 
6071 LET 1=5: LET C=20: LET Z=2 : 
GO TO 8063 

3080 DATA 0,0,0,1,BIN 00000011,B 
IN 00000011,BIN 00000111,BIN 000 
01111 

3061 DATA 0,0,0,BIN 11111110,255 
,255,255,255 

3082 DRTfl 0,0,0,0,BIN 10000111,B 
IN 10011111,BIN 10111111,255 
■3083 DATA 0,0,0,BIN 01111111,255 
i253 255 255 

é084'DATA 0,0,0,BIN 10000000,BIN 
11000000,BIN 11100000,BIN 11100 
000,BIN 11100000 

00000111,B 

IN 00001111,BIN 00001111,BIN 000 
11111 

3036 DRTR BIN 00001111,BIN 00011 
111,BIN 00011111,BIN 11101111,25 
5 255 255 255 

3037 DATr'bÏN 11100000,BIN 11000 
300,BIN 10100000,8IN 1111000O,BI 
N 11111000,BIN 11111100,BIN 1111 
1110,BIN 11111110 

3088 DATA BIN 00011111,BIN 00011 
111,BIN 00011111,BIN 00011111,BI 
H 00001111,BIN 00000111.BIN 0000 
0001,0 

3089 DRTR 255,2SS,255,255,255,2S 
5,255,BIN O0011111 

3090 DRTR BIN 11111110,BIN 11111 
110,BIN 11111100,BIN 11111100,BI 
N 11111000,BIN 11110000,BIN 1110 
0000,BIN 11000000 

3095 REM *********************** 
* GROS NUAGE BLANC * 
*********************** 


4140 DATA 
4150 DRTR 
ans la jou 
; ge lees po 

n . " 

4210 DRTR " 
,"Temperatu 
4220 DRTR " 
fraiches , 
a c raind re . 
4230 DRTR " 
orageuses." 
udes , nuits 
4240 DRTR " 
Tempe rature 
4250 DRTR " 
ossiblés; 

.","Temps f 
4310 DRTR " 
,"Tempe ra tu 
4320 DRTR " 
vec vent.", 
4330 DRTR " 
un peu de 
4340 DRTR " 
o r t.","fisse 
4350 DRTR " 
u lees en 
i s 


"Beau.","Assez chaud." 
"Beau.","Assez chaud d 
rnee, frais la nu i t 
ssibles au petit mati 


3096 >REM 

8100 RESTORE 8150: 

TO USR "a 
a : NEXT f 


FOR f=USR "a" 


Ondees 
r e s f r 


nuits 


ou giboulées 


fisse 
, "Jo 
unpe 
Onde 
dou 
Nuag 
g i bo 
rais 
Onde 
r e f 
Ond 
"Te» 
P lu i 
vent 
P tu i 
Z do 
Onde 
mont 


a iches . 

•• 

ji jl 

ees."," 

Journées 

■■j «• 

froides 

; ge lees 


beau ou 

ondees 

8U3 

nees un 

peu cha 

OP •• 


♦127: RERD 

a : 

POKE f , 

RT 

14,17; 

INK 

7;" RBC 

RT 

15,17; 

INK 

7; "GHM 

RT 

16,17; 

INK 

7; "JH 

RT 

17,17; 

INK 

7; "L*MN 


u fraîches." 
es ou averses."," 
ce." 

eux,avec ondees P 
ulees en montagne 

es ou giboulées." 
raiche . " 

es ou giboulées a 

PS frais." 

e ou averses avec 
. ."Temps doux." 
e et vent assez f 
ux . " 

es en piaine.gibo 
agne.","Temps fra 

4410 DRTR "Pluie ou neige avec v 
ent.",“Tempera ture basse." 

4420 DRTR "Ondees,giboulees ou a 
verses orageuses ; neige en mo 

ntagne.Uentfaib le ou modéré.","T 
emperature basse." 

4430 DRTR "Pluie et vent assez f 
ort.","Tempera ture douce." 

4440 DRTR "Pluie et vent assez f 
ort.","Temperature douce." 

4450 DRTR "Pluie en plaine,neige 
tagne . ,"Temps fra 


******************** 
PRESENTATION * 

******************** 

INK 4; BORDER 4: C 


en 

i s . " 

7800 

REM 

mo 

7900 

REM 

**** 

* 

* * * * 

7936 

REM 


7999 

REM 


8000 

PAPER 4: 


8150 DRTR 0,0,0,BIN 00000011.BIN 
00001111,BIN 00011111,BIN 00011 
111,BIN 00011111 

3151 DRTR 0,0,BIN 01111100,255,2 

55.255.255.255 

3152 DRTR 0,0,BIN 00000011,BIN 1 

1011111.255.255.255.255 

8153 DRTR 0,0,255,255,255,255,25 

5.255 

8154 DRTR 0,0,BIN 11100000,BIN 1 
1111000,BIN 11111000,BIN 1111110 
0,BIN 11111011,255 

•3155 DRTR 0,0,0,0,0,0,BIN 111000 
00,BIN 11111000 

3156 DRTR 0,0,BIN 00000011.BIN 0 
0011111,BIN 00011111,BIN 0011111 
l.BIN 00111111,BIN 00111111 

3157 DRTR BIN 00011111,BIN 00111 

111.255.255.255.255.255.255 

3158 DRTR BIN 11111000,BIN 11111 
100,BIN 11111100,BIN 11111100,BI 
N 11111100,BIN 11111100,BIN 1111 
1100,BIN 11111100 

3159 DRTR 127,127,127,127,127,12 
7 127 127 

6160 DRTR BIN 11111100,BIN 11111 
000,BIN 11111000,BIN 11111000,BI 
N 11111000,BIN 11110000,BIN 1110 
0000,BIN 11000000 

3161 DRTR BIN 00111111,BIN 00011 
111,BIN 00011111,BIN 00000111,0, 
0 , 0,0 

3162 >DRTR BIN 11101111,BIN 11100 
111,BIN 11000011,BIN 00000001,0, 

0 , 0,0 

8163 DRTR 255,255,255,255,BIN 00 
111111,BIN 00000011,0,0 
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8164. DOTA 255, B IN 11111110 , BIN 1 
1111110,BIN 11111100,8XN 1111100 
0,BIN 11100000,0,0 

8165 DATA BIN 11111110,0,0,0,0,0 
,0,0 

8166 REH *********************** 

* PERSONNROE SOURIANT * 
*********************** 

S167 REM 

8170 RESTORE 8171: FOR f=USR "a" 
TO USR “ a +31 : READ a: POKE f,a 

: NEXT f 

8171 DATA 0,0,0,1,BIN 00000110,B 
IN 00001000,BIN 00010010,BIN 000 
10001,0,0,0,BIN 10000000,BIN 011 
08000,BIN 00010000,BIN 01001000, 
BIN 00001000 

8172>DRTA BIN 00010100,BIN 00010 
011,BIN 00001000,BIN 00000110,1, 
1,1,1,BIN 01001000,BIN 10001000, 
BIN 00010000,BIN 11100000,0,0,0, 

0 

8180 INK 0: PLOT 79,10: DRAW -4-, 
-9: PLOT 79,10: DRAU 4-, -9 : PLOT 
79,10: DRAU 0,18: PRINT RT 17,9; 

• RB"; RT 18,9; '• CD": PLOT 79,17: D 
RAW 5,5: PLOT 79,17: DRAW -7,7 
3190 REH *********************** 

* le re MUSIQUE * 

*********************** 

8200 RESTORE 8230: FOR f=1 TO 9 
8210 RERD h,d: BEEP d,h 
8220 NEXT f 

8230 DRTR 12,.3,9,.57,69,.07,9,. 
3^10,.3,12,.33,21,.52,21,.52,17, 

324.0 RESTORE 8270: PAUSE 20: FOR 
f =1 TO 8 

8250 RERD h, d: BEEP d 
8260 NEXT f 

3270 DATA 12,.3,9,.63,9,.3,10,.3 
, 9 , . 33,12 , . 52,12 , . 52,10 , . 4- 
3290 REH *********************** 

* GROS NUAGE NOIR ET * 

* PLUIE * 

*********************** 

8300 RESTORE 8330: FOR f=USR "a" 
TO USR "a"+159 
8310 READ a: POKE f,a 
8320 NEXT f 

3330 DATA 0,0,0,0,BIN 00000011,B 
IN 00011111,BIN 01111111,255 

3331 DATA 0,0,0,BIN 01111111,2SS 
,255,255,255 

8332 DATA 0,0,0,BIN 10000000.BIN 
11100001,BIN 11111011,255,255 

8333 DATA 0,0,BIN 00001111,BIN 0 

1111111.255.255.255.255 

8334. DATA 0,BIN 00011110,255,255 
,255,255,255,25S 

3335 DATA 0,0,BIN 11100000,BIN 1 

1111000.255.255.255.255 

3336 DATA 0,0,0,0,BIN 11000000,B 
IN 11100000,BIN 11110000,BIN 111 
10000 

8337 DATA 1,BIN 00000111,BIN 0OO 


Bllll.DIN 00001111,BXN 00011111, 

BIN 00011111,BIN 00111111,BIN 00 
111111 

3338 DATA BIN 11000000,BIN 11110 
000,BIN 11111000,BIN 11111110,25 
5,255,255,255 

8339 DATA 0,0,BIN 00000011,BIN 0 
0001111,BIN 00011111,BIN 0011111 
l.BIN 01111111,2S5 

334.0 DATA BIN 00111111,BIN 00011 
11LSIN 11011111,255,255,255,255 

334-1 DATA 255,BIN 11111110,BIN 1 
1111110,BIN 11111100,255,255,255 
255 

334-2 DATA 0,0,0,0,0 , BIN 10000000 
j BIN 11111000,BIN 11111110 
834-3 > DATA 1,BIN 00000011, BIN 0O0 
00111,BIN 00000111,BIN 00001111, 
BIN 00001111,BIN 00001111,BIN 00 
1111 

3344. DATA BIN 10000000.BIN 11100 
000,BIN 11110000,BIN 11111000,BZ 
N 11111100,BIN 11111100,BIN 1111 
1110,BIN 11111110 

8345 DATA BIN 00001111,BIN 00001 
111,BIN 00001111,BIN 00000111,BI 
N 00000011,0,0,0 

3346 DATA 255,255,255,255,255,BI 
N 01111111,BIN 00011111,BIN 0000 
0011 

8347 DATA BIN 11111110.BIN 11111 
110,BIN 11111110,BIN 11111100,BI 
N 11111000,BIN 11110000,BIN 1110 
0000,BIN 11000000 

3348 DATA 1,BIN 00000010,BIN 000 
00100,0,BIN 00010000,BIN 0010000 
0,BIN 01000000,BIN 10000000 
8349 DATA l.BIN 00000010,BIN 000 
00100,BIN 00001000,0,BIN 0010000 


0,BIN 01000000,BIN 10000000 
6400 DIM E*(22,26) 

3410 RESTORE 8420: FOR f=l TO 


READ a*: 
8420 DATA 


LCT E*( f )=a*: NEXT 


8421 

3422 

3423 
8424 

3425 

3426 

8427 

8428 

8429 

8430 

8431 

8432 

8433 
8440 
5 

8450 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

FOR 



22 

f 


C —1 TO 26: FOR l=4 TO 1 


PRINT AT 


INK 0+(l 


_ l-l,32-c; 

>=9)*7;E*Cl,1 TO C) 

8460 NEXT l : NEXT C. PRINT AT 0, 
0;: FOR f=1 TO 22: PRINT INK 0+t 
f > =9) *7; PAPER 1;" "+E*(f). 

NEXT f: BORDER 1 
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JEUX 


8465 REM «#*♦«**»*#»****♦****♦** 

* PERSONNAGE PARAPLUIE* 
*********************** 

34-66 REM 

84-70 RESTORE 84-75: FOR f =USR "a" 
TO USR "a"+31: RERD a: POKE f,a 
: NEXT f 

84-75 DRTR 0 , O . 0,1 , B XN 00000110, B 
XN 00001000,BIN 00010010,BXN 000 
10001,0,0,0,BIN 10000000,BXN 011 
00000,BXN 00010000,BXN 01001000, 
BXN 00001000 

34-76 DRTR BXN 00010011,BXN 00010 
100,BXN 00001000,BXN 00000110,1, 
1,1,1,BXN 10001000,BIN 01001000, 
BXN 00010000,BXN 11100000,0,0,0, 

0 

8480 INK S: PRPER 1: PLOT 79,10: 

DRAU -4,-0: PLOT 70,10: DRRU 4, 
-0: PLOT 70,10: DRRU 0,18: PRINT 
RT 17,0; "AB"; AT 18,0; "CD": PLOT 
70,17: DRRU 5,5: PLOT 70,17: DR 

§48l 7 INK 0: PLOT 71,24. DRRU 0,1 
0: PLOT 02,36: DRRU -40,0,1.5 
8485 REM *********************** 

* sente MUSIQUE * 

*********************** 

8400 RESTORE 8530 
8500 FOR f=l TO 13 
8510 RERD h,d: BEEP d,h 
8520 NEXT f 

8530 DATA 7 , .3,10, .5,7, .3,10, . 5 , 

7.. 35.3..7,-2,.8,3,.25,3,.25,3,. 

25.5.. 55.5..3.7..6 
8550 PAUSE 100 

8560 P.EM *********************** 

* Sent* TABLEAU ANIME * 
*********************** 

8600 PRINT RT 21,0: PAPER 3: FOR 
f >1 TO 22: POKE 23602,10: PRINT 

": NEXT f : CLS 
3620 INK 7: FOR f=0 TO 31 
8630 IF f<=20 THEN PRINT RT f ,14 
;" " ; RT f +1,14; " X" 

8640 IF f>=5 AND f<=25 THEN PRIN 
T RT f-5,8; " "; RT f-4,S;"E" 

8650 IF f>=6 AND f<=26 THEN PRIN 
T AT f-6,31; " "; AT f-5,31;"E" 

8660 IF f>=9 AND f<=20 THEN PRIN 
T RT f -0,22; " "; RT f-8,22; "O” 

8870 IF f>=ll AND f<=31 THEN PRI 
NT RT f-11,2;“ “; RT f-10,2;"N" 

8380 NEXT f 
8390 FOR f=l TO 15 
8900 PRINT RT 21,31-f;"E " 

8910 IF f < =7 THEN PRINT RT 21,22 
- f ; "G •* 

8920 IF f<=10 THEN PRINT RT 21,f 

■fl'" N " 

3930 IF r<=5 THEN PRINT RT 21, f* 
7; " E" 

3940 NEXT f 
3945 PAUSE 20 

©950 FOR f =0 TO 4: PAUSE 2: 


9043 DATA 


T RT f , 1; 
NEXT f 


I I 


PRIN 

’ ; RT f+1,l; "PLUIE 


9030 
. FOR 
T f 

9040 
RDY" 

R" 

B” 

9041 


DATA 


9042 

* 


DATA • 
B" , • 
C", * 
C” 
DATA 
C" , 
C" , 
C" , 
C" , 


% 

ATR 
ENOU 


IIU" 

9044 DATA " 

GRENOUILLE 


8955 PAUSE 30 

8960 FOR f=0 TO S: PRINT AT f,25 
; INK 5, <"* * *" AND f/2-INT (f / 

2)=0)+(" * * " AND f /Z — INT (f/2) 

< > 0) ; AT f+1,25; "GRELE": NEXT f 
3965 PAUSE 20 

3970 LET â $ = "TORNADES": FOR f =7 
TO 1 STEP -1: PRINT AT 17,0; INK 
6;a* ( f TO >: NEXT f _ . _ 

8980 FOR f=0 TO 19: PRINT AT 17, 
fi INK 6;" "+a$: NEXT f 

8990 FOR f =17 TO 8 STEP -1: PRIN 
T AT f,20; INK 6;a*,AT f+1,20)" 

": NEXT f 

9000 FOR f =20 TO 2 STEP -1: PRIN 
T AT 8 , f ; INK 6; a $ + " ": NEXT f 

9010 FOR f=8 TO 17: PRINT AT f,3 
; INK 6;a *;AT f-l,2j" ": 

NEXT f __ 

9020 PAUSE 20: FOR f=30 TO 24 ST 
EP -1: PAUSE 3 . PRINT INK 4; RT 1 
1,f;"U "; AT 12,f;"E "; AT 13,f;"N 
"; AT 14, f; "T ": NEXT f 

9025 PAUSE 50 

9026 REM *********************** 

♦ EXPLICATIONS * 

*********************** 
DIM a$(22,32): RESTORE 9040 
f=l TO 22: RERD a$(f): NEX 


LA"," 

AB 

CDEFGH T 

“IJK LMNO 
, ”PORSTU 
","RBCDEFG" 

9180 LET C =15 

9190 FOR 1=10 TO 5 STEP -1: LET 
C «C-1 : PRINT AT l,C; : FOR e=l TO 
22-1*2: BEEP .03,0: PRINT TAB C 
; PAPER 1;a$ CL+E,C+1 TO 15-C + 15) 
9200 NEXT a : NEXT l 

9205 REM *********************** 

* THERMOMETRE ET * 

* GRENOUILLE * 

*********************** 

9300 RESTORE 9310: FOR F=USR ”A" 
TO USR "A"+79: RERD A: POKE F,A 
NEXT F 

9310 DATA 60,66,66,129,129,129,1 

29.129.129.129.129.129.129.129.1 

29.129.129.143.129.143.129.143.1 
29,191,1,3,7,15,31,63,63,63,128, 

192.224.240.248.252.252.252.63.6 

3.63.63.31.31.15.7.252.252.252.2 
52,248,248,240,224,3,1,0,0,0,0,0 
,0,25S,255,0,0,0,0,0,0,192,128,0 
, 0,0,0,0,0 

9320 PRINT AT 0,0;: FOR F=1 TO 9 
: PRINT INK 7; PAPER 1;A*(F): NE 
XT F: FOR F=10 TO 12: PRINT PAPE 
R 1;A$(F, TO 28); INK 7; PAPER 2 
;A*(F,29); PAPER IJ" : NEXT F 

: FOR F = 13 TO 15: PRINT INK 2; P 
APER 1;A$(F): NEXT F 
9325 FOR f =17 TO 21: PRINT AT f, 
0; PAPER 3;a $(1) : NEXT f : PRINT 
AT 15,0; 

9330 RESTORE 9350: FOR F=USR "A" 
TO USR "A"+167: RERD A: POKE F, 
A: NEXT F 

9340 FOR F = 16 TO 21: PRINT INK 4 
; PAPER 1; A $(F) : NEXT F 
9350 DATA 0,0,0,0,0,0,0,3,0,0,0, 
0,0,48,200,7,0,0,0,0,7,8,16,32,0 
,0,7,120,128,0,0,0,0,0,255,0,0,0 
,0,0,12,48,192,0,0,0,0,0,120,132 
,164,136,112,3,124,64,192,60,2,1 
2,112»128,96,16,0,0,0,0,0,1,1,2, 
0,0,1,2,252,8,16,16,32,64,128,0, 
0,0,0,0,0,0,0,0,0,0,7,8,0,0,0,0, 
0,0,0,128,32,31,0,3,28,32,64,128 
,8,216,32,192,0,0,0,0,4,4,4,7,4, 
8,8,4,32,32,64,192,65,58,6,1 
9360 DATA 0,0,0,0,248,7,0,248,0, 
0,0,0,0,0,128,112,16,32,32,65,65 
,65,129,129,129,130,132,8,8,16,3 
2,64,4,2,1,0,0,0,0,0,128,64,48,1 
36,102,17,14,1,6,1,0,0,0,252,3,2 

55.8.4.4.2.2.15.248.44.129.129.6 
4,32,112,136,4,3,128,0,128,64,32 
,24,71,252,0,0,0,0,0,0,128,0 
9370 FOR F =USR "A" TO USR "A"+55 
: READ A: POKE F,A: NEXT F: PRIN 
T INK 4; PAPER 1;A$(22): PAUSE 5 
00 

9390 GO SUB 9997: PAUSE 100 
9400 PAPER 1: INK 7. PRINT AT 0, 
9;"SPECTROMETEO 
***•**•**«***•" 

9410 PRINT PRINT PRINT PRI 
NT "C« programme va vous pcrattt 
re de réaliser vos propres prev 
i- sions météorologiques...": P 
RINT : PRINT "L'algorithme princ 
base sur une méthode mi 
par l'abbe MOREUX 


ipa l est 
se au point 


ipal est base sur une méthode mi 


se au point 
<1867-1954) 


FREDDY HA 
PRESENTE: 


SPECTROMETEO 

************* 


par l'abbe MOREUX 
PRINT : PRINT "Ce 
tte méthode donne 8 0 X de ch 

ances de réussite pour des pr 

avisions d'une échéance de 24h" 
9420 PRINT AT la,10;"Pour contin 
uer,";AT 19,10;"tapez une touche 
..." : PAUSE 0 
9430 GO TO 60 

9996 REM *********************** 

* 3S-PROGRAMME "CLS" * 
*********************** 

9997 LET f $ = " 

: LET b $ = " 

9998 PRINT AT 0,0;: FOR f=0 TO 1 
S: PRINT PAPER l;f$: NEXT f: IF 
U=1 THEN PRINT AT 0,0;: RETURN 

9999 FOR f =17 TO 21. PRINT AT f, 
8; PAPER 1; b $ : NEXT f: PRINT AT 
0,0;: RETURN 


Freddy HARDY 


44 - ORDI-5 n° 13 septembre 1985 







































































































Othello 


Un logiciel tout Basic évidemment un peu lent, 
mais qui en fait beaucoup pour peu de lignes. 
L'ordinateur demande d’abord le nom du joueur 
(A ou B). 

Si l'on désire jouer contre l’ordinateur, entrer ZX 
en premier. On entre les coordonnées de la case 
choisie sous la forme A4 par ex. 

Pour passer son tour faire « 00 ». 


BüüüOOü 
*00 


oxüxü: 30 

CL 5 


40 

LET 

U = 16 514 

50 

LET 

G =0 

xïîW:* 50 

LET 

Ci ="00" 

-0 

DIM 

•J ( £ ) 

60 

DIM 

A $ 4 ; 

30 

LET 

Z5 = ! 1113 



000000 


1 REM *** INITIALISATION *** 
10 GOTO 30 

3 A UE "OTHELLH" 


) 13 166 3563335646535344356455314.1 
58435414351532326737632376267242 
57475424752571217S23721237173227 


100 REM ** AFFICHAGE DAMIER 

101 PAINT " 1234567 

110 PAINT 

120 FOR N=1 TO 3 
130 PAINT " 

140 PAINT CHAS (N + 37) ; " : 


*** 


150 NEXT 
160 PRIN 
200 AEM 


N 


; iEUA 


OM DU JOSE 


■j 


21 


• * INTRO 
PAINT AT 21.0 
(3 LETTRES)" 

OR N=1 TO 2 
20 INAUT A $ f N) 

30 IF LEN A $ N ) >3 THEN GOTO 21 


240 LET U (N- —400 

250 IF A$(N,1 TO 2)-"IX" THEN L 
ET J CN) =1200 

260 PAINT AT N*5 20 ; A$ (N) ; AT N* 
5 30 , CHR$ ( 40 *N + ( 12*N*N) ) .. AT 21 , 
14; 

270 NEXT N 

230 PAINT AT 21,0:" 


290 FOR N=11 


0 33 


(Ü + N 0 
N 


•-'O . 

16559,Si 


291 PÛKE 

292 NEXT 
iog pn kE 
296 POKE 
£97 PÛKE 

293 POKE 15569., 123 
£99 PAINT AT 9,9 Or 
9 ; CHR$ 52 ..AT 9,11 ; C 
11. C H R 5 123 

300 AEM ** AFFICHAI 

301 FOR T = 1 TO 2 


320 

LET I=(40 

330 

LET RA2 =0 

340 

LET GO =U ( 

SïAWS 350 

GOSUE GO 

S#:::# 350 

N EXT T 

370 

GOTO 300 

500 

REM. ***** 

SSWSï 501 

INPUT Ci 

510 

IF C$="PO 





( Z)Ar8S 


520 IF LEN 05-2 THEN GOTO 500 
530 IF Ü $ = ' 0 0 THEN RETURN 
540 IF CODE C$ ■ 1) <33 OR CODE C$ 
11) >45 THEN GOTO 500 
550 IF CODE C$ (2) <23 OR CODE C$ 
1.2: >35 THEN GOTO 500 
560 LET C $ (13 =5TR $ (CODE C$(D- 
37) 

570 IF PEEK I.U+UAL C$) <>0 THEN 
isOTu 500 

500 AEM ***** COORDONNEES ***** 

520 LET Q=-l 

630 GÛSUE 1000 

640 LET G=-10 

550 GOSUE 1000 

560 LET 0=1 

570 GOSUE 1000 

530 LET 0=10 

590 GOSUE 100O 

-00 LET 0 = -9 

710 GOSUE 1000 

720 LET 0=9 

-30 GOSUE 1000 

t 40 LEi 0 = 11 

TF0 GOSUE 1000 

-60 LET Q=-ll 

-70 GOSUE 1000 

730 LET B=PEEK A 

-90 IF E=0 T'HcN GOTO GO+ 100 

300 IF 5=1 THEN LET G=G+1 

310 PAINT AT 21,1;" 


, AT 11 

320 

AT 11 

F 30 


340 

UP. *** 

1000 


1001 

T 21, ( 

1010 

2 *T *T ) 

X 0 cl 0 


0) =1 


( 12*T*T> ) 


JEU JOUEUR ****** 
CNT" THEN GOTO 200 


HEN RETURN 
1030 LET C=A + U 

1040 IF C ; 16525 OR C>16602 THEN 
RETURN 


1050 

LET W=U+Q 

1050 

IF PEEK 

C=0 THEN RETURN 

_C-0 

IF PEEK 

Col THEN GOTO 1030 

1030 

SLOW 


1090 

FOR J=1 

TO 50 

1095 

N EXT J 


1100 

REM ***■ 

** AFFICHAGE ******* 
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1101 FOR N=A TO C 5TEP O 

1110 PÜKE N , I 

1120 LET X= INT ((N-U)/10) 

1130 LET Y=(N-U-(X*10)) 

1110 PRINT RT (X*2) +1, (Y*2)+1;CH 
R $ I 

1150 NEXT N 
1160 RETURN 

1200 REH ******* JEU ZX ******** 

1201 FOR J=1 TO 50 
1210 NEXT J 

1220 FAST 

1230 POR 2=1 TO 60 
1240 LET CS(1)=2$(Z*2-I) 

1250 LET CS(2i=Z$(2*2) 

1260 IF PEEK (U+UflL C$) <>0 THEN 
GOTO 1300 

1270 PRINT RT 21,1;“JE JOUE EN 
“;CHRS (URL CS (1)+37) ; CS (2) 

1230 GO5UE 620 

1290 IF RRZ = 1 THEN GOTO 360 

1300 NEXT 2 

1310 IF RRZ =0 THEN PRINT RT 21,0 
"JE SUIS COINCE 
1320 SLOU 

1330 FOR F = 1 TO 50 

1340 NEXT F 

1350 PRINT RT 21.0;" 


1360 G OT O 360 

2000 REM ******* POINT ********* 

2001 LET R =0 


2010 LET 0=0 
2020 PRINT RT 3,22. 
21 , 0 ;" 


SCORE 


RT 


2030 FOR N=11 TO 33 

2040 IF PEEK (U+N)=52 THEN LET R 

=R + i 

2050 IF PEEK (U+N)=123 THEN LET 
0=0 + 1 

2060 NEXT N 

2070 PRINT RT 5,30 ; R.RT 10,30;0 
2030 IF R > 0 THEN PRINT RT 21,0;" 
C EST ";fl$ (1) ; " OUI GAGNE" 

2090 IF O >R THEN PRINT RT 21.0;" 
C EST ";fi$(2);" OUI GfiGNE" 

2100 IF R =0 THEN PRINT RT 21.0;" 
MATCH NUL , fl REFAIRE" 

2110 FOR N =0 TO 30 
2120 NEXT N 

2130 PRINT AT 21,0;"UNE AUTRE PA 
RTIE HUI OU ffiON ?" 

2140 INPUT HS 

2150 IF H$ = "0" THEN RUN 

2160 CLS 

2170 STOP 


Dominique HELES 


Quill de Gilsoft 


s’exécute pratiquement à la vitesse d’un pro¬ 
gramme directement écrit en assembleur. Le 
joueur utilisera ce programme en tapant des or¬ 
dres de un ou deux mots, comme dans les clas¬ 
siques du genre. 


QUILL AVENTURE ! 


La rédaction de cette base peut être laborieuse : 
n’allez pas croire qu’en un quart d'heure, vous 


« The Quill » est un logiciel utilitaire 
pour ZX SPECTRUM qui permet à 
toute personne non informaticienne 
d’écrire des jeux d’aventure en 
évitant la programmation pour se 
concentrer sur l’intrigue directrice 
du jeu. 


Il suffit à l'utilisateur de créer la base de donnée 
relative à son aventure : « The Quill » interprête 
ensuite cette base de données et fournit, après 
mise au point, un jeu en langage-machine qui 
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réléguerez aux oubliettes Scott Adams, ce pion¬ 
nier des auteurs de jeux d’aventures, qui dut 
écrire son propre interprèteur de base de don¬ 
nées. Il faut donc fournir un certain travail. La 
notice de 60 pages indique clairement qu'une 
phase d’apprentissage est nécessaire. L'exem¬ 
ple fourni pour nous familiariser avec les nom¬ 
breuses fonctions de « The Quill » est à cet 
égard significatif la rédaction d'une mini¬ 
aventure (6 pièces, 10 objets environ) nécessite 
un nombre impressionnant de frappes. 

En effet, la base de données se subdivise en ta¬ 
bles, sélectionnés depuis le menu principal, et 
accessibles via un éditeur (cet éditeur est en fait 
l’éditeur de lignes du Basic, ce qui ne dépassera 
pas). 


A ven turez- vous 
dans les tables 



Les différentes tables sont : 


- la table des textes, dans laquelle on entre le 
texte correspondant à la description de chaque 
emplacement (ou pièce) de l’aventure (ex : je 
suis dans un couloir, il y a une porte à l’Est et 
une autre au Nord ; 


- la table des mouvements, dans laquelle on 
spécifie, pour chaque pièce, les mouvements 
possibles (E, W, N, S, NE, SW, U, D, etc...) et les 
pièces auxquelles aboutissent ces directions, 
sous la forme TO numéro de pièce ; 

- la table des objets, qui contient le numéro de 
chaque objet, son nom, et le numéro de la pièce 
où il se trouve au début de l’aventure. 


- la table du vocabulaire, contenant les mots 
acceptés seuls ou par paires, ainsi que leurs sy¬ 
nonymes (deux mots ayant même numéro sont 
synonymes pour « The Quill »). Cette table 
contient déjà une trentaine de mots : les huits 
directions, UP, DOWN, et quelques commandes 
courantes telles que G ET, DROP, INVENTORY, 
etc... 

- la table des événements qui contient les effets 
des commandes tapées par le joueur. A cet ef¬ 
fet, le programmeur dispose de 37 « actions » 
comme BEEP (son), MESSAGE (affichage d’un 
texte), GOTO (déplacement), etc., dont l'exécu¬ 
tion est réglée par 16 conditions comme AT (ob¬ 
jet présent dans la salle courante ou non), CAR- 
RIED (objet porté ou non), CHANGE 
(événement aléatoire), ZERO (variable nulle, cf 
infra), etc... Chaque événement se rapporte 
ainsi à un ou deux mots spécifiés dans cette ta¬ 
ble, selon les conditions voulues. Exemple : 
COUPER CORDE ne marche que si l'on porte le 
couteau et si l’on se trouve en présence de la 
corde, et provoque le remplacement (action 
SWAP) de l’objet « CORDE » par l'objet 
«CORDE COUPEE»; 


- la table des états, qui contient également des 
conditions et les actions qui en découlent, selon 
la même syntaxe que pour la table précédente, 
mais les tests sont cette fois indépendants des 
ordres tapés par le joueur, et sont effectués sys¬ 
tématiquement : l’entrée du joueur dans la 
salle X, par exemple, provoque dans 45 % des 
cas l’apparition d’un gaz toxique, auquel le 
joueur succombe au bout de deux tours s’il n’a 
pas mis le masque à gaz ; 


le programmeur dispose de 
37 « actions » 

dont l’exécution est réglée par 
16 conditions 



- la table mot-objet, enfin, permet de rendre au¬ 
tomatiques les actions PRENDRE, LAISSER, 
METTRE et ENLEVER sur les objets les plus 
courants : cela évite au programmeur de remplir 
la table des événements avec les nombreuses 
combinaisons entre ces quatre mots et les ob¬ 
jets les plus courants, ce qui est un gain de 
temps et de mémoire fort appréciable. Seuls res¬ 
tent alors à expliciter les cas particuliers (exem¬ 
ple : PRENDRE LAPIN n’est possible que si l’on 
a auparavant lesté le véloce animal d'une bonne 
décharge de plombs de chasse...). 

Pour bâtir son jeu, le programmeur dispose de 
33 variables (numérotées de 0 à 32), représen¬ 
tées par des octets, donc variant entre 0 et 255, 
dont plusieurs sont automatiquement traitées 
lors du déroulement de l'aventure par l’interprè¬ 
teur Quill : certaines sont décrémentées à cha¬ 
que tour, d’autres décrémentées à chaque tour 
passé dans l’obscurité, etc... Les créateurs de 
« The Quill » ont mis l'accent sur les problèmes 
d’éclairage et de source de lumière rencontrées 
par les joueurs. Le programmeur a ainsi à sa dis¬ 
position une variable dont l’état reflète la pré¬ 
sence ou l'absence de lumière : s’il fait sombre, 
la demande de description de la pièce courante 
est automatiquement refusée. De plus, l’objet 
numéro 0 est supposé par l'interprèteur être une 
source de lumière, cette sophistication axée sur 
un seul type de problèmes semble un peu inutile, 
mais il faut cependant reconnaître qu’à défaut 
d’être originales, ces difficultés se rencontrent 
dans un grand nombre de programmes d’aven¬ 
tures, et sont le B-A-BA de tout joueur «sé¬ 
rieux ». 


il est possible de créer avec 
« The Quill » une aventure 
100 % en français ! 



On peut d’autre part opérer des additions, sous¬ 
tractions et comparaisons sur toutes ces varia¬ 
bles. Notons que les tours écoulés sont compta¬ 
bilisés par les variables 31 et 32 qui forment un 
mot de 16 bits. 
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ESSAI LOGICIEL 


La sauvegarde sur magnéto d'une partie en 
cours et sa restitution sont prévues, ce qui est 
très appréciable pour le joueur et donc pour le 
programmeur. 

De plus, il est possible de créer avec « The 
Quill » une aventure 100 % en français ! En effet, 
non seulement rien n’empêche de créer un vo¬ 
cabulaire entièrement hexagonal (puisque l’on 
peut définir OUEST et HAUT comme synonoy- 
mes des comandes WEST et UP, qui font partie 
comme les autres directions des mots directe¬ 
ment excéutées par l’interprêteur), mais il est 
aussi possible de redéfinir les messages de l'in¬ 
terprêteur. 


SI d’aventure vous avez encore 
envie de jouer 



On voit difficilement ce qui pousserait encore le 
programmeur de jeux d'aventure à utiliser l’as¬ 
sembleur (ou le Basic, pouah !) pour livrer ses 
créations en pâture aux amateurs du genre. Le 
succès de « The Quill » a été énorme Outre- 
Manche, et rares sont critiques concernant la 
réalisation technique d'une « Quilled Adven- 



Un mot sur la notice, qui ferait pâlir d’envie bien 
des utilitaires réputés « sérieux » : non seulement 
elle est très pédagogique, mais elle s'offre en 
plus le luxe d’être archi-complète ! La première 
partie permet de se familiariser avec « The 
Quill », tandis que la seconde, est plus techni¬ 
que, et contient notamment un organigramme 
de l’interprêteur, levant toute ambiguité sur la 
priorité des actions dans les diverses tables. La 
description de la base de données « compilée » 
(prête à être vendue sous forme de programme 
indépendant) est également fournie. Voilà se qui 
s’appelle être complet. 


ture », tant il est vrai que celle-ci peut facilement 
être irréprochable (en particulier exemple de 
« Bougs ») moyennant un minimum de soins. La 
facilité de la réalisation permet au programmeur 
de libérer son potentiel créatif pour le fignolage 
d’intrigues savoureuses, sans se perdre dans les 
méandres de l'assembleur. Un must pour les 
« fanas ». 


Frédéric MORA 


48 - ORDI-5 n° 13 septembre 1985 


Imprimerie Les Impressions CEPI. 75010 Paris. Imprimé en France. Directeur de la publication Bernard Savonet. Dépôt légal : septembre 1985. 


















INTERFACE 


30, rue Condorcet - 75009 PARIS 
Téléphone : (1) 285.12.34 


(VOTRE SPECIALISTE SINCLAIR) 

POUR ZX 81 ET TIMEX 


- Clavier professionnel 

- Interface disquettes et lecteur 5" 1/4 

- Extensions de mémoire 16,32 et 64 K 

- Carte d'inversion vidéo 

- Carte génératrice de sons 

- Synthétiseur vocal 

- Générateur de caractères graphiques 

- Crayon optique 

- Prolongateur souple de bus 

- Filtre d'enregistrement 

- Interface pour poignée de jeu 

- Carte génératrice 16 couleurs 

- Carte auto répétition 

- Carte 8 entrées analogiques 

- Carte entrées/sorties 

- Programmateur d'Eprom 

- Carte Eprom 

- Beep clavier 

- Carte mère 

- Carte proto. 




clavier Pro St>ectrum 950.- F. 


.. ET ENFIN LE Q.L. ! 


clavier Pro ZX 81 770.- F 


POUR ZX SPECTRUM 

- Clavier professionnel 

- Interface disquettes et lecteur 5" 1/4 

- Interface ZX 1 

- Lecteur de micro disquette 

- M icro disq uettes pour micro drive en stock 

- Extension de mémoire externe 16/48 K 

- Interface type Kempston pour joystick 

- Interface programmable pour joystick 

- Amplificateur de son réglable 
jusqu'à X 10 

- Synthétiseur vocal 

- Modulateur noir et blanc 

- Interface mixte Centronics/RS 232 

- Interface Péritel 

- Crayon optique 

- Carte 8 entrées analogiques 

- Carte entrée/sortie 

- programmateur d'Eprom 

- Carte Eprom 

- Raccordement pour moniteur 
monochrome 

- Prolongateur souple de bus 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


t - 

TELEVISION — LOCATION 

- POSTES SECAM AVEC SORTIE PERITEL 

- POSTES MULTISTANDARDS PAL SECAM 

COMPATIBLES MICRO - ORDINATEURS 

CATALOGUE GENERAL ET TARIFS : 10.- F. 

(remboursable à la première commande) 


ADRESSE-___ 

™ LOCATEUR 

Code Postal . ... .VILLE-. . -. 


A retourner à INTERFACE, 30, rue Condorcet, 75009 Paris. u 
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QL RAM 

Extensions mémoire 
64 K- Rét. hd 96 - 1 400F 
128 K • Rét. trd 99-1 900 F 
256 K Réf hd 97 -2 750 F 
512 K • Rét hd 93 ■ 4 300 F 

INTERFACE DISC DRIVE QL 

Connectes n'importe quel lecteur de disquette W, 5 ou 51K de pouces grâce 
à cette interlace. Peut s'employer avec des lecteurs simple ou double lace, 
simple ou double densité. <0 ou 80 pistes. Supporte de 178 k à 1.44 mégaoctets 
Rét. hd 99 - 2 050 F 



LE DESASSEMBLAGE 
DE LA ROM DU QL 

EN FRANÇAIS 

Désassemblage complet, listé et conv 
mente ligne i ligne de l'ensertie des rou¬ 
tines du (X de Sinclair. Outil de base du 
développeur de logiciel, cet ouvrage cons¬ 
titue également une excellente initiation 
au langage assembleur du 68 000 (plus de 
44 Ko de routine étudiéesi Tous les 
mystères du QL enfin dévoilés, des riches¬ 
ses insoupçonnées mises à fa», une dé 
unique pour utiliser les MtentiaStes 
exceptionnelles de votre ordinateur 

Rét. hb45 195 F 



LOGICIELS QL 


ASSEM8LER - Rét SU 47 -650 F 
0ESASSEM8LER Rét. su 46 • 560 F 
TOOLKfT ■ Réf. SU 44 ■ 170 F 


FORTH - Réf. Su 46 - 650 F 
PASCAL -Rét. su 45 - 850 F 
OL SPRITE - Rét su 56 480 F 
LISP Rét. su 9 850 F 
BCPl • Rét. su 4 - 850 F 
BRIDGE II Réf. sg 77 350 F 
ECHECS ■ Réf. sg 86 3 50 F 

OL SCREEN - copie écran sur toutes imprimantes N. 4 B. ou couleur 
Réf. su 16 90 F 


QL CONNECTION 

CONNECTION 2 sorties bus arr. - Réf. hd 3 560 F 
INTERFACE CENTRONICS ■ Réf. hd 93 450 F 
MODULATEUR UHF N. 8 B. - Réf. hd 72 220 F 
ADAPTATEUR JOYSTICK Rét. hu 44 - 79 F 
CABLE RS 232 Rét hu 43 -195 F 



CREDIT 
4 A 21 MOIS 

+ de 1 000 F d'achats 
sur tous les articles 
128 K RAM extensible à 640 K 
•32 bis 

• 2 microdrives. 2 sorties RS 232 

• 2 sorties joystick 

• Extension RAM 


• Livré avec. 

• 4 logiciels, t cordon Péritel 
1 notice en fiançais 
AZERTY Réf. hd 18 6950 F 
QWERTY -Réf. hd 10- 5560 F 


QL MINITEL 

Transforme: votre QL en Serveur grâce 
a ce logiciel et à son interface Commu¬ 
niquez avec toutes les banques de don¬ 
nées ou avec un autre QL et. surtout, 
devenez banque de données â votre 
tour Utilise l'écran et le modem du 
Minitel 

Réf. hd 20 850 F 




DRAGON 32 DE NOUVEAUX LOGICIELS, ACCESSOIRES. POUR VOTRE ORDINATEUR 



□□□□□□□□ 

□□□□□□□□ 


ORIC 
ATMOS 
CBM 64 
AMSTRAD 



TBANS EXPRESS 

Nouvelle version. La Rolls des logiciels Spcctrum utilitaires Permet de trans¬ 
férer les programmes Basic ou Langage Machine de Cassette à Microdrive 
Microdrive à Microdrive - Disquette â Disquette ■ Waferdrive iROTRONICSi 
â Waferdrive - Cassette à Disquette - Cassette à Waferdrive. Donne les noms 
du programme, la longueur en octets, l'adresse du début (Langage Machine) 
ou la ligne de lancement automatique (Basic) effectue un veiiiy et beaucoup 
d'aulies super possibilités. 

Conditionnement : en cassette : su 53 ■ 195 F 
en microdisquette su 54 250 F 
en cartouche ROTRONICS - 240 F 

KWIKLOAD 

Vitesse de chargement : 

4 500 bauds au lieu de 1200. Convertissez la majorité des programmes du 
commerce ou les vôtres avec le logiciel KWIKLOAD et. une lois modlliés, 
ils se chargeront avec un LOAD normal â une vitesse 3 lois plus rapide. Con¬ 
vertit le Basic ou Langage Machine, pas de matériel supplémentaire â bran¬ 
cher. Utilise un lecteur de K7 standard. 

SPECTRUM ■ Réf. SU 17 -135 F 


SPECTRUM CONNECTION 





Clavier Spectrum ♦ hd 89 • 410 F 
Clavier Pro • hd 31 • 650 F 
Stylo lumineux • hd 47 395 F 
Synthétiseur paroi»* • hd 1 • 485 F 
Synthétiseur son* rd 5 495 F 
Inter. Centronics »t RS 232 hd 21 • 
560F 

Cible Centronics ■ hd 21. hu 51 • 159 F 
Câble RS 232 pour hd 21 hu 52 -159 F 
Rallonge Péritel hu 34 1 75 F 


Rallonge Centronics hu 36 1 65 F 
Conn. Inter Uicrodrive hu 35 95 F 
Oukk/shot II hg 02 140 F 
Trackball • souris t • hg 3 375 F 
Manette jeux infra-rouge • hg 4 450 F 

Inter, minette ♦ conn. err. - hg 11 - 
215F 

Inter, poignée progr. • hg 7 • 400 F 
Conn. souple d'interface - hu S 147 F 
Imprim. GPS0S hd 22 1 650 F 


r 



--§»<n 

BON DE COMMANDE A ENVOYER A LOGISOFT 

Vente par correspondance, en magasin, par téléphone. 

39, rue de Tunis • B.P. 2392 - 31086 TOULOUSE CEDEX • TEL 61.21.49.55 


REF. 


PRIX 



VOTRE MICRO EN TOUTES LETTRES 


CATALOGUE LOGICIELS ET ACCESSOIRES 20 F 
remboursé â la première commande 7 

Nom : . 

Prénom :. 

Participation aux 
frais d'envoi 
moins de S kg 

GRATUIT 

Plus de 200 F 
d'Achats 

Port recommandé 

GRATUIT 

C P. : .Ville. 

PRIX TOTAL 



Signature • Validité □ chèque bancaire 1 crédit : dossier 

□ C.C.P. par retour 

C contre du courrier 

remboursement C carte bleue 

1. t . . -—i 


LIVRES SPECTRUM 

ROM 0ISASSEM8LY 

Rét. hb 1 180 F 

MICRODRIVE BOOK 

Réf. hb 10 -99 F 

SP HAROWARE MANUAL 

Réf. hb 11 ■ 110F 
MASTER YOUR MICRODRIVE 
Réf. hb 15- 110 F 
20 BEST PROGRAMS 
Réf. hb 14 -99 F 
40 BEST MIC Routines 
Réf. hb 9 99 F 


Revendeurs, 
nous consulter 


SPECTRUM PLUS PERITEL • Réf. hd 09 1 960 F 

SPECTRUM PLUS PERITEL ■ Réf. hd 09 2 260 F avec 10 logiciels. 

SPECTRUM PLUS PAL - Rét hd 08 - 1 660 F 

SPECTRUM 48 K PAL et UHF N S B. • Rét. hd 06 1 560 F 

PACK MICRODRIVE avec 4 logiciels : Traitement de texte, gestion fichier, 

création jeux. Ant Attack • Rét. hd 28 • 1 650 F 

ZX MICRODRIVE - Rét. hd 29 940 F 

INTERFACE ZX1 ■ Réf. hd 30 895 F 

MICRODISOUETTES pai 4 - Réf. hu 13 • 160 F 


WHITE LIGHTNING 

Un fabuleux programme utilitaire qui 
sans connaissance particulière du Lan¬ 
gage Machine, vous permet d'écrire- 
facilement des logiciels professionnels, 
originaux, rapides el de vous faite édi¬ 
tai sans payer les droits de Copyright 
qui sont laissés libres par les concep 
leurs de ce logiciel qui comprend : 80 
commandes supplémentaires, 255 gra¬ 
phiques utilisateurs, londionneiMflt de 
2 programmes à la lois FORTH intégré, 
combinaison de FORTH, BASIC. Lan¬ 
gage Machine dans un même pro¬ 
gramme. 168 graphiques prédéfinis - 
programme de démonstration 
Spectrum 46 K - su 12 250 F 


Inconcevable de ne pas posséder ce 
logiciel ulilitaite. Prenez un pro¬ 
gramme BASIC ajoutez-y BLAST, 
appuyez sur la louche C. En quel¬ 
ques secondes votre programme est 
compilé en Langage Machine el 
tournera 40 lois plus vile. Il sera plus 
performant et, si vous voulez les 
laire éditer, les droits d'auteurs de 
ce logiciel sont laissés libres de tout 
Copyright. 


Réf. su 51 - 315 F Spectrum. 


BLAST 


WHITE 

LIGHTNING 


CATALOGUE LOGICIELS ET ACCESSOIRES 

La référence en micro-informatique 


• 1 en de garantie totale 

• Pis de frais supplémentaire d'envol à la commande pour moins de 5 kg 

• Recommande gratuit i partir de 200 F d'achat 

• Crédit de 4 à 21 mois 

• Commandes téléphoniques 24 h sur 24 h 

• Service apres-vtnte assuré 

• IU 1.4935 pour résoudre vos problèmes. 
























































SLOMO 

« Gelez » ou ralentissez l'action de 
vos jeux préférés. Avec cette Inter¬ 
face poignée compatible Kemps- 
lon/Quickshol II, vous pourrez exa¬ 
miner à loisir toutes les phases de 
vos logiciels d'action ou d'aventure 
en arrêtant le temps. Connecteur 
arrière. 


Spectrum Réf. hg t - 245 F 
Amstrad - Réf. hg 6 245 F 



SUPERCODE III 

150 routines en langage machine 
directement exploitables peuvent 
être implantées dans tous vos pro- 

a rammes Basic ou Langage 
achine. 

Grèce au < menu > de ce logiciel 
vous pourrez sélectionner et sauve¬ 
garder la routine de votre choix. Des 
possibilités inattendues s'offrent à 
vous. Pour machine 16 ou 46 K. 
Notice en française. 


SP 16/48 K • Réf. SU 14 215 F 



OPÉRATION 

Un check-up pour votre magnéto¬ 
phone. Ce logiciel contrôle les varia¬ 
tions de vitesse, l’azimulage de la 
tête de lecture, les erreurs de pistes, 
nettoie les tètes lect/enr, les déma¬ 
gnétise. Contrôle des résultats à 
l'écran - livré avec un tournevis. 


Spectrum - Réf. su 7 - 150 F 



CODE SUCER 

Vous permet d'entrer dans 
n'importe quel programme Basic ou 
Code Machine enregistré en vitesse 
normale ou Turbo load, à n'importe 
quelle adresse (16 384 à 65 536), de 
Breaker, le transférer à une autre 
adresse, lire le Header, copier, etc. 
- Pour pirates avertis. 


Spectrum Réf. su 18 - 170 F 





ASTRONOMER 

Un Planétarium pour qui veut tout 
connaître sur notre galaxie : vue du 
ciel de n'importe quel endroit de la 
planète, traçage des constellations, 
vue de notre système solaire, phase 
de la lune, plus de 1 000 étoiles mon¬ 
trées. comètes, astéroïdes compa¬ 
tible imprimante. 


Spectrum 48 K Réf, se 1 160 F 


CENTRONICS/RS 232 

interface à deux standards, compa¬ 
tible toutes imprimantes. 
Fonctions : LPRINT, LLIST, COPY. 
Pas de logiciel supplémentaire, 
copie en couleur ou N. 8 B. haute 
résolution. Microdrive compatible. 


Spectrum Réf, hd 21 - 560 F 
Câble RS 232 Réf. hu 52 159 F 
Cible Centronics Réf. hu5! 159 F 


QL DIGITALISEE 



QL DIGITALISEUR 

Couplée avec une caméra vidéo PAL 
ou SECAM. cette carte vous permet 
de numériser des images en 
256 x 256 pixels en N I B. et 
256 x 256 en 8 couleurs. 4 fonc¬ 
tions Basic supplémentaires en 
gèrent le fonctionnement. 


FOURTH PROTOCOL 

Elu jeu de l'année en Grande- 
Bretagne, tiré du livre de Forsyth, ce 
logiciel d'aventure vous fera vivre 
des moments Intenses et oublier 
pour un moment la programmation. 
Un scénario carré, un graphisme 
superbe et une bombe atomique à 
désamorcer. 


Spectrum - Réf. sg 4 195 F 




SPECTRUM MACHINE 
LANGUAGE 

Destiné à ceux qui n'ont aucune 
idée de ce qu'est le Langage 
Machine. Le microprocesseur Z80, 
la numérotation en binaire et hexa¬ 
décimale, les registres, tout est 
expliqué en détails et chaque 
démonstration se termine par un 
résumé, des exemples et des 
exercices. 


150 pages Réf. hb 13- 110 F 



Rél. bd 58 - 3 700 F 




p SLOT 

N'avez-vous jamais branché un nouveau périphérique dans votre Spectrum 
et de vous apercevoir que vous ne pouviez y rajouter rien de plus ? Avec p 
SLOT plus de problème de connection. C'est un connecteur à double sortie 
compatible Spectrum, Spectrum +, ZXI, ZX2. 

Réf, hd 16 145 F 


AMSTRAD 

CPS 464 Monochrome 2 990 F 
Rél. hd 24 CPC 464 Couleur 4 490 

F Ré* 25 
' NOUVEAU ' 

CPC 664 Monochrome Réf, hd 14 
4 490 F 


CPC 664 Couleur Réf. hd 15 
5 990 F 

Lecteur de disquettes intégré 
Disquette3”■ Réf hu47-79F-par 

10 700 F 


QL MAKING MOST 

Un guide pratique pour programmer 
en SUPER BASIC destiné aux débu¬ 
tants et aux plus expérimentés, 
incluant plus de 100 programmes 
utilitaires, domestiques, graphi¬ 
ques. scientifiques. Descnption des 
commandes essentielles pour déve¬ 
lopper vos logiciels. 


1S2 pages Réf. hb 19 145 F 




SPECTRUM DISC DRIVE 
LE TOUT EN UN 



Le dise drive pour Spectrum arrivé à maturité • Format 3,5 pouces • 40 pistes- Double densilé • Alimentation incorporée, commune à l'ordinateur (Inter¬ 
rupteur d'alimentation commun) • Interface poignée de jeux au standard Kempston - Bus d'extension pour vos autres accessoires qui restent compati¬ 
bles (saut la ZXI) • ROM et RAM Internes • Utilise les mots clefs de la ZXI : FORMAT, CAT, CLOSE, etc. • Interface parallèle CENTRONICS inclue - 
Accès direct aux données (pas dans la forme séquentielle du Microdrive). 

Dlscovery 1 ■ 178 K formatés - Réf. hd 11 • 3 250 F 

Nota : TRANS-EXPRESS, vendu séparéement, est spécialisé notamment pour le transfert des programmes du particulier ou du commerce de K7 è dis¬ 
quette Dlscovery. 


OL SUPER SPRITE 

Le logiciel que vous attendiez pour 
votre QL Créez tous les effets spé¬ 
ciaux des jeux d'arcade, d'aventure 
et de simulation pour les intégrer 
dans vos propres programmes. 
Compilateur intégré ne nécessitant 
pas la connaissance du langage 
machine 68 000. Si vous voulez faire 
éditer le programme réalisé avec QL 
SPRITE. les concepteurs de ce logi¬ 
ciel laissent les droits de copyright 
libres et vous n'aurez aucune royal¬ 
ties à leur verser 

Réf. su 56 480 F 



MUSIC TYPEWRITER 

Un système complet pour ecme et jouer 
de la musique. Réalisé par des musi¬ 
ciens professionnels, il est facilement 
exploitable même sans nen connaître a 
la musique, Vous pouvez soit composer 
soit 'eprodui'e un moiceau d après une 
parut on el -es notes s'inscriront sur 
une portée musicale cop<abiesur impri¬ 
mante ou sauvegardante sur cassette. 
Livré avec un cache Ipas pour SP +| 
reproduisant le clavier d'un piano. 
Rytme de 2(4 è M 6 octaves. Métro¬ 
nome 23 i 255. Mesures : 254. Correc¬ 
tion d'écriture, Edition. 

Spectrum 48 K Réf se Z - 195 F 


2X 1 ROM 
DISASSEMBLY 

Un livre pour tout connaître du 
désassemblage de la ROM de 
l’intertaceZX I. 

Listing de la ROM avec des exem¬ 
ples de programmes utilitaires, un 
assembleur, un chargeur Basic, 
Index des routines, différences des 
modèles l el Z 


Réf. hb 3 - 165 F 



ZXI ROM 
DISASSEMBLY 
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l'actualité 

les bancs d'essai 
les guides d'achat 
le dossier 
les programmes 
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LA RÉFÉRENCE EN MICRO-INFORMATIQUE 
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AVANT-PPIM1ISI 
THUNDERSCAN ET JAZZ : 
ANALYSEUR 
D'IMAGES ET 
LOGICIEL INTÉGRÉ 
POUR MACINTOSH 

MICRAL 30 . 

AU BANC D'ESSAI 
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A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l’étranger, l’équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L 0.1. teste pour vous les micros et ^ 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de votre machine ? Les spécialistes de tO.LvousIrvrent 
conseils, programmes inédits et astuces d’utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL 









